Подскажите небольшой кусочек программы. Паскаль.

[GE076]

Есть два одномерных массива из трех элементов. Как из них создать один из шести?
Я делаю вот так

s:=0;
for i:=1 to 6 do
	begin
	j:=j+1;
	Z[j]:=X[i];
	Z[j+3]:=Y[i];
	end;
	for i:=1 to 6 do
	Writeln (Z[j]:3:3);

но моя программа зависает

[_Dmitry]

for i:=1 to 3 do  
  begin  
    Z[i]:=X[i];   
    Z[i+3]:=Y[i];   
  end;   
for i:=1 to 6 do  
  Writeln(Z[i]:3:3);