Для каждого ряда матрицы вычислить сумму элементов. Из отрицательных значений определить максимальное - Pascal

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

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

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

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

const n = 7;
var a: array [1..n, 1..n] of integer;
    b: array[1..n] of integer;
    i, j, max, sum: integer;
begin
  randomize;
  for i := 1 to n do begin
    b[i] := 0;
    for j := 1 to n do begin
      a[i, j] := -15 + random(31);
      write(a[i, j]:4);
      b[i] := b[i] + a[i,j];
    end;
    writeln;
  end;
  max := 0;
  write('Суммы: ');
  for i:=1 to n do begin
    write(b[i],' ');
    if (max = 0) and (b[i] < 0) then max := b[i]
    else if (b[i] < 0) and (b[i] > max) then max := b[i];
  end;
  writeln;
  writeln('Максимальное отрицательное: ', max);
end.

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

Объявляются переменные: n - размерность матрицы, a - сама матрица, b - вспомогательный массив для хранения сумм элементов строк, i, j - индексы для обхода матрицы, max - переменная для хранения максимального отрицательного значения, sum - для хранения текущей суммы элементов строки.
В цикле заполняется матрица случайными отрицательными числами.
В цикле вычисляются суммы элементов каждой строки и записываются в массив b.
Выводится на экран список сумм строк.
В цикле ищется максимальное отрицательное значение среди сумм строк. Если текущее значение суммы отрицательное и больше предыдущего максимального, то оно становится новым максимальным.
Выводится на экран найденное максимальное отрицательное значение.