procedure Foo(x:TIntegerArray);
begin
  x[1] := 3; //I just modified the array
end;

var
  x:TIntegerArray;
begin
  x := [0,0,0];
  foo(x);
  WriteLn(x[1]); //x[1] is now 3
end.