Во второй массив сначала переписать сначала положительные, потом 0, потом отрицательные - Free Pascal

Формулировка задачи:

Не могу решить задачу, прямо застрял на ней. Помогите, пожалуйста. Нужно: заполнить массив из 10 элементов положительными и отрицательными числами. Во второй массив сначала переписать сначала положительные, потом 0, потом отрицательные. Спасибо заранее.

Решение задачи: «Во второй массив сначала переписать сначала положительные, потом 0, потом отрицательные»

Листинг программы

program NoSort10;
 
var
  a, b: array [1..10] of integer;
  i, j: Integer;
 
begin
  randomize;
  writeln('Исходный массива:');
  for i := 1 to 10 do                       //Заполняем массив
    begin                                   //случайными числами
      a[i] := random(1000) - 500;           //в диапазане -500 .. 500
      write(a[i]:5);                        //И выводим их на экран
    end;
  writeln;
  j := 1;
  for i := 1 to 10 do if a[i] > 0 then //положительные
    begin
      b[j] := a[i];
      j := j + 1
    end;
  for i := 1 to 10 do if a[i] = 0 then //нули
    begin
      b[j] := a[i];
      j := j + 1
    end;
  for i := 1 to 10 do if a[i] < 0 then //отрицательные
    begin
      b[j] := a[i];
      j := j + 1
    end;
  writeln('Упорядоченный массив:');
  for i := 1 to 10 do write(b[i]:5);
  readln
end.

Объяснение кода листинга программы

Список действий в коде:

Создаются два массива a и b типа array [1..10] of integer.
Заполняются 10 элементов массива a случайными числами в диапазоне -500..500.
Выводятся на экран все элементы массива a.
Инициализируется счётчик j=1.
В цикле обрабатываются элементы массива a:
- Если элемент положительный (больше нуля), то он копируется в массив b с увеличением счётчика j.
- Если элемент равен нулю, то он также копируется в массив b с увеличением счётчика j.
- Если элемент отрицательный (меньше нуля), то он также копируется в массив b с увеличением счётчика j.
Выводятся на экран все элементы массива b.
Ожидается нажатие клавиши для завершения программы.