Задан массив Z(25). Расположить в массиве R сначала положительные, а затем отрицательные элементы массива Z. Диапазон [-25; 25] — Pascal(Паскаль)

Uses crt;

var
  z: array [1 .. 25] of integer;
  i, o, p: byte;
  j: longint;
  r: array [1 .. 25] of integer;

begin
  randomize;
  for i := 1 to 10 do
  begin
    z[i] := random(10) - 3;
    write(z[i]:4);
  end;
  writeln;
  j := 0;
  for i := 1 to 10 do
    if z[i] > 0 then
    begin
      inc(j);
      r[j] := z[i];
    end;
  for i := 1 to 10 do
    if z[i] < 0 then
    begin
      inc(j);
      r[j] := z[i];
    end;
  for i := 1 to 10 do
  begin
    write(r[i]:4);
  end;
  readln;

end.