Delphi 过程的传值调用 及函数的返回值

//以上会输出Hello，因为方法ChangeS其实是创建了一个新的A，
//而输出的还是原来的s，值并没有改变
var
  s: string;

procedure ChangeSVar(A: string);
begin
  A := A + 'World';
end;

begin
  s := 'Hello ';
  ChangeSVar(s);
  writeln(s);
  readln;
end.

//以上会输出Hello W，因为采用函数，函数的返回是连接好的字符串，
var
  s: string;

function ChangeSVar(A: string): string;
begin
  A := A + 'World';
  result := A;
end;

begin
  s := 'Hello ';

  writeln(ChangeSVar(s));
  readln;
end.