Yes, but that's .. not nice.
Better is:
array: array of integer;
array2: array [1..50] of integer;

setlength (array, 50);
for x:=1 to 50 do begin
array[x]:=array2[x]; end;

(would give error in d.)

Much more conveniant, right?