Если создать копию открытого массива, то изменение исходного массива или его копии приводит к изменению обоих - Pascal

 type Tarr = array of integer;
procedure QuickSort(var arg: Tarr; aL, aR: Integer);
  var
  L, R : integer;
  M, T : Integer;
  begin
    L:= aL; R:= aR;
    M:= (arg[L] + arg[(L + R) div 2] + arg[R]) div 3;
    repeat
    while arg[L] < M do L:=L+1;
    while arg[R] > M do R:=R-1;
    if L <= R then begin
    if arg[L]>arg[R] then begin
    t:= arg[L]; arg[L]:= arg[R]; arg[R]:= t;
    end;
    L:=L+1; R:=R-1;
    end;
    until L > R;
    if R > aL then QuickSort(arg, aL, R);
    if L < aR then QuickSort(arg, L, aR);
  end;
var
  i,n,j,n2: integer;
  arr,arr2: Tarr;
begin
  readln(n);
  setlength(arr,n);
  setlength(arr2,n);
  for i:=0 to n-1 do
    read(arr[i]);
  arr2:=arr;
  QuickSort(arr,0,n-1)
End.