1:
2:
3:
4:
5:
6:

var i:integer;
     a1,a2:array of integer;
begin
 setlength(a2,length(a1));
 for i:=0 to high(a1) do a2[i]:=a1[i]; 
end;					

1:

function copyarray(a1:array of integer):array of integer;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

type
   TAoInteger: array of integer; //eigener Datentyp

...
var
   a1, a2: TAoInteger;
...
begin
   a2 := a1; {stinknormale Zuweisung, wobei SetLength natürlich nicht benötigt wird}
...					

1:
2:
3:
4:
5:
6:

procedure copyarray(var a1,a2:array of integer);
var i:integer; 
  begin 
  setlength(a2,length(a1)); 
  for i:=0 to high(a1) do a2[i]:=a1[i]; 
  end;					

1:
2:
3:
4:
5:
6:

var MyArray1, MyArray2: array of integer;
begin
  SetLength(MyArray1, 10);
  MyArray[0] := ...;
  MyArray2 := Copy(MyArray1);
end;					

1:

 a1:=a2;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
  A, B: array of Byte;
begin
  SetLength(A, 10);
  B := A; // Referenzzähler von A wird erhöht 
              // B und A zeigen auf das gleiche Array
  B[0] := 2 // Für Array B wird Speicher reserviert 
                // und Array A wird in B Kopiert und der
                // erste Index auf [b]2[/b] gesetzt
end;