Задан массив Z(N). Расположить в массиве R сначала положительные, а затем отрицательные элементы массива Z

program Project1;
const
  maxelem = 100;
var
  z,r: array [1..maxelem] of integer; { Переменная для  хранения массива.}
  n: integer; {  Переменная для хранения значения количества элементов в массиве.}
  i,k: integer; { Вспомогательные переменные для организации циклов.}
 
begin
  write('Введите значение максимального количества вводимых элементов массива: ');
  Readln(n);
  for i:= 1 to n do
    begin
      write('Введите значение ',i,' элемента: ');
      Read(z[i]);
    end;
  Readln;
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      write(' ',z[i]:5);
      if i mod 10 = 0 then
        writeln;
    end;
  k:= 0;
  for i:= 1 to n do
    if z[i] > 0 then  {Условие для поиска положительных элементов}
      begin
        inc(k);
        r[k]:= z[i];  {Запоминание найденных элементов в новом массиве}
      end;
  for i:= 1 to n do
    if z[i] < 0 then   {Условие для поиска отрицательных элементов}
      begin
        inc(k);
        r[k]:= z[i];    {Запоминание найденных элементов в новом массиве}
      end;
  writeln;
  writeln('Отсортированный массив: ');
  for i:= 1 to k do
    begin
      write(' ',r[i]:5);
      if i mod 10 = 0 then
        writeln;
    end;
 
  Readln;
end.