В одномерном массиве подсчитать количество положительных и отрицательных чисел - Pascal

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

В заданном массиве подсчитать количество положительных и отрицательных чисел. Вывести на экран заданный массив и счетчики.

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

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

program pr;
 
var
  a: array [1..100] of integer;
  i, n, coutp, couto: integer;
 
begin
  coutp := 0;
  couto := 0;
  writeln('Введите размер массива');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := random(21) - 10;
    write(a[i]:3);
  end;
  for i := 1 to n do
  begin
    if a[i] > 0 then
      coutp := coutp + 1;
  if a[i] < 0 then
    couto := couto + 1;
    end;
  writeln;
  writeln('Количество положительных элементов ', coutp);
  writeln('Количество отрицательных элементов ', couto);
end.

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

Объявляется программа с именем pr.
Объявляется переменная a как массив целых чисел от 1 до 100.
Объявляются переменные i, n, coutp и couto как целые числа.
Инициализируются переменные coutp и couto значениями 0.
Выводится строка Введите размер массива.
Считывается значение n с клавиатуры.
Создается цикл for от 1 до n, в котором выполняются следующие шаги: а. Заполняется элемент массива a[i] случайным целым числом от -10 до 10. б. Выводится значение элемента массива a[i] с 3 символами.
Создается второй цикл for от 1 до n, в котором выполняются следующие шаги: а. Если элемент массива a[i] больше нуля, увеличивается значение переменной coutp на 1. б. Если элемент массива a[i] меньше нуля, увеличивается значение переменной couto на 1.
Выводится пустая строка.
Выводится строка Количество положительных элементов и значение переменной coutp.
Выводится строка Количество отрицательных элементов и значение переменной couto.
Конец программы.