procedure Foo1(constref x:TIntegerArray);
begin
  x[1] := 3; //error, I can't do this.
end;

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