Сумма отрицательных элементов таблицы случайных чисел - Free Pascal

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

Помогите, пожалуйста, решить задачу: создайте программу для нахождения суммы отрицательных элементов таблицы случайных чисел размером 4х6 с диапазона от -37 до 36.

Решение задачи: «Сумма отрицательных элементов таблицы случайных чисел»

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

const n = 4; m = 6;
var a: array[1..n, 1..m] of integer;
    i, j, sum: integer;
begin
  randomize;
  sum := 0;
  for i := 1 to n do begin
    for j := 1 to m do begin
      a[i, j] := -37 + random(74);
      write(a[i, j]:4);
      if a[i, j] < 0 then sum := sum + a[i, j];
    end;
    writeln;
  end;
  writeln('Сумма = ', sum);
end.

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

Объявляются константы n = 4 и m = 6, которые определяют размер таблицы a.
Создается массив a размером n на m, элемент типа integer.
Объявляются переменные i, j, sum типа integer.
Выполняется процедура randomize, которая инициализирует генератор случайных чисел.
Переменная sum инициализируется нулем.
Два вложенных цикла выполняются последовательно для каждого элемента массива a.
Каждый элемент массива a заполняется случайным отрицательным числом в диапазоне от -37 до -37 + 74 = 37.
Число записывается в таблицу a и выводится на экран.
Если число отрицательное, то оно прибавляется к переменной sum.
По завершении циклов выводится на экран сумма всех отрицательных чисел из таблицы a.
Выводится сообщение с названием и значением переменной sum.