Из одного массива в другой переписать сначала положительные элементы, затем отрицательные — Pascal(Паскаль)

program P7;  
uses crt;
const n=16;//размер массива
var  
Z,R: array [1..n] of integer;//тип массива
i,k: integer;
Begin  
Clrscr;  
writeln('Vvedite ',n,' elementov massiva Z');
for i:= 1 to n do
read (Z[i]); //вводим в строку через пробел, как и положено вводить массив
readln;
 
writeln('Iz massiva Z v massiv R perepisivaem snachala polozhitelnie elementi,');  
writeln(' a zatem otricatelnie:');  
  
k:=0;
for i:=1 to n do
if Z[i]>0 then
   begin
     k:=k+1;
     R[k]:=Z[i];//переписываем положительные
   end;
for i:=1 to n do
if Z[i]<0 then
   begin
     k:=k+1;
     R[k]:=Z[i];//переписываем отрицательные
   end;
for i:= 1 to n do
write(R[i],' ');//выводим в строку
readln
End.