Напишите программу, которая выделяет в другой массив все элементы исходного массива, которые меньше нуля - Pascal

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

Здравствуйте, помогите написать программу на pascal,спасибо.Напишите программу, которая выделяет в другой массив все элементы исходного массива, которые меньше нуля.Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 10000 .Программа должна вывести содержимое полученного массива: все отрицательные элементы исходного массива в том же порядке. Если таких нет, нужно вывести число 0. входные данные 6 1 2 3 4 5 6 выходные данные 0

Решение задачи: «Напишите программу, которая выделяет в другой массив все элементы исходного массива, которые меньше нуля»

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

program pr;
 
var
  i, n, k, cout: integer;
  a, b: array [1..100] of integer;
 
begin
  cout := 0;
  k := 1;
  writeln('Введите размер массива');
  readln(n);
  for i := 1 to n do
  begin
    read(a[i]);
  end;
  writeln;
  for i := 1 to n do
    if a[i] < 0 then
    begin
      cout := cout + 1;
      b[k] := a[i];
      k := k + 1;
    end;
  if cout = 0 then
    writeln(0) else 
    for k := 1 to cout do
      write(b[k]:3);
end.

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

Создается программа под названием pr.
Объявляются переменные:
- i - для использования в циклах
- n - для хранения размера массива
- k - для отслеживания позиции в массиве b
- cout - для подсчета количества отрицательных элементов
- a, b - для хранения исходного и нового массивов соответственно
Присваивается значение 0 переменной cout.
Присваивается значение 1 переменной k.
Выводится текст Введите размер массива.
Вводится значение переменной n с клавиатуры.
С помощью цикла for происходит заполнение массива a значениями, введенными с клавиатуры.
Выводится пустая строка.
С помощью цикла for происходит проверка каждого элемента массива a:
- Если элемент меньше нуля, то:
  - увеличивается значение переменной cout на 1;
  - элемент массива a с добавляется в массив b на позицию k;
  - увеличивается значение переменной k на 1.
Если значений cout равно 0, то выводится 0.
В противном случае:
- С помощью цикла for происходит вывод элементов массива b на экран с отступом в 3 позиции.