Найти сумму положительных элементов и количество отрицательных элементов двумерного массива вещественного типа - Free Pascal

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

Помогите, пожалуйста, сделать вот ету задачу в Free Pascal: создайте программу "Подсчет" в которой находят сумму положительных элементов и количество отрицательных элементов двумерного массива вещественного типа

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

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

const
  n = 7;
  m = 8;
 
var
  sum: real;
  k, i, j: integer;
  a: array [1..n, 1..m] of real;
 
begin
  sum := 0;
  k := 0;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := -n * m div 2 + random(n * m);
      write(a[i, j]:5);
      if a[i, j] > 0 then
        sum := sum + a[i, j];
      if a[i, j] < 0 then
        inc(k);
    end;
    writeln;
  end;
  writeln('Сумма положительных элементов: ', sum);
  writeln('Rоличество отрицательных элементов: ', k);
end.

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

Объявлены константы n = 7 и m = 8, которые определяют размерность двумерного массива.
Объявлена переменная sum типа real, которая будет использоваться для хранения суммы положительных элементов массива.
Объявлены три переменные типа integer: k, i, j, которые будут использоваться для итерации по элементам массива.
Объявлен двумерный массив a типа array [1..n, 1..m] of real, который будет использоваться для хранения значений элементов.
В цикле for i := 1 to n выполняется итерация по строкам массива a.
Внутри цикла for i выполняется вложенный цикл for j := 1 to m, который выполняет итерацию по столбцам массива a.
Внутри вложенного цикла for j каждый элемент массива a[i, j] инициализируется случайным числом из диапазона -nm/2..nm/2 с помощью функции random(n*m).
Значение элемента a[i, j] выводится на экран с помощью команды write(a[i, j]:5).
Если элемент a[i, j] больше нуля, то его значение прибавляется к переменной sum.
Если элемент a[i, j] меньше нуля, то переменная k увеличивается на единицу.
По завершении вложенного цикла for j, выполняется переход к следующей строке массива a с помощью команды next(i).
После завершения цикла for i выводится горизонтальная строка для разделения элементов массива.
По завершении цикла for i выводится сумма положительных элементов массива с помощью команды writeln('Сумма положительных элементов: ', sum).
Выводится количество отрицательных элементов массива с помощью команды writeln('Rоличество отрицательных элементов: ', k).
Конец программы обозначается командой end.