Сдвинуть все отрицательные элементы к началу массива, а положительные к концу

program Project1;
uses
  CRT;
const
  maxelem = 20;
 
var
  i,j: integer;      { Вспомогательные переменные для организации циклов}
  n: integer;      { Переменная для хранения значения количества элементов в массиве}
  a,b: array [1..maxelem] of integer; { Переменная для хранения массива}
 
begin
  write('Введите значение количества элементов (не более ',maxelem,'): ');
  repeat
    Readln(n);
    if (n < 1) or (n > maxelem) then
      writeln('Ошибка ввода! Повторите попытку.')
  until (n > 0) and (n < maxelem);
  for i:= 1 to n do
    begin
      write('Введите значение элемента [',i,']: ');
      Readln(a[i]);     { Ввод значений в двумерный массив.}
    end;
  clrscr;
  writeln;
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      write(a[i]:6);             {Вывод элементов массива в консоль}
      if i mod 10 = 0 then       {Организация  вывода элементов по 10 в строке}
        writeln;
    end;
  j:= 0;                   { Установка счетной переменной в ноль}
  for i:= 1 to n do
    begin
      if a[i] < 0 then     {Условие для поиска отрицательных элементов}
        begin
          j:= j+1;          { Увеличение счетчика на единицу }
          b[j]:= a[i];      { Найденные элементы заносятся в новый массив}
        end;
    end;
  for i:= 1 to n do
    begin
      if a[i] = 0 then      { Условие для поиска нулевых элементов}
        begin
          j:= j+1;           { Увеличение счетчика на единицу }
          b[j]:= a[i];       { Найденные элементы заносятся в новый массив}
        end;
    end;
  for i:= 1 to n do
    begin
      if a[i] > 0 then      { Условие для поиска положительных элементов}
        begin
          j:= j+1;           { Увеличение счетчика на единицу }
          b[j]:= a[i];        { Найденные элементы заносятся в новый массив}
        end;
    end;
  writeln('Измененный массив: ');
  for i:= 1 to n do
    begin
      write(b[i]:6);             {Вывод элементов массива в консоль}
      if i mod 10 = 0 then       {Организация  вывода элементов по 10 в строке}
        writeln;
    end;
  Readln;
end.

const n = 10;
var
  a : array[1 .. n] of integer = (1, 2, -2, 0, -6, 3, 0, 4, 0, 1);
  i, j : integer;
  x : integer;
begin
  for i := 1 to n do write(a[i]:4); writeln;
  
  for i := 1 to n do for j := n downto i + 1 do 
    if (a[j - 1] >= 0) and (a[j] < 0) then begin x := a[j - 1]; a[j - 1] := a[j]; a[j] := x end; 
 
  for i := 1 to n do write(a[i]:4); writeln;
end.

for i:= 1 to n do
    for j := n downto i + 1 do
    if (a[j-1] >= 0) and (a[j] <= 0) then
      begin
        x:= a[j-1];
        a[j-1]:= a[j];
        a[j]:= x;
      end;