В двумерном массиве N(4,4) вычислить сумму наибольших значений строк - Pascal

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

В двумерном массиве N(4,4) вычислить сумму наибольших значений строк. Бошка уже совсем не варит: а завтра с утра отдать нужно всю контрольную, вот еще три задачи и щас я на этой встал, только массив написал и все:

var a:array[N..4,N..4] of integer;

Решение задачи: «В двумерном массиве N(4,4) вычислить сумму наибольших значений строк»

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

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

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

Объявляются константы и переменные:
- n = 4 (размер массива)
- a = array [1..n, 1..n] of integer (двумерный массив, размерностью n на n)
- i, j, max, sum = integer (переменные для циклов и суммы)
Выполняется инициализация генератора случайных чисел с помощью функции randomize.
Инициализируется переменная sum = 0 (сумма будет вычисляться как сумма всех максимальных значений).
Выполняются два вложенных цикла по i и j от 1 до n.
В каждой итерации внутреннего цикла выполняется: 5.1. Инициализация переменной max = 1 (первая строка имеет максимальное значение по умолчанию). 5.2. Цикл по j от 1 до n (внешний цикл). 5.3. Присваивание элементам массива a[i, j] случайного числа от -15 до 15 (включительно) с помощью функции random(31) - 15. 5.4. Вывод значения a[i, j] с помощью функции write(a[i, j]:4) (значение выводится в 4-х значном формате). 5.5. Если a[i, j] больше значения a[i, max], то max = j (переменная max обновляется). 5.6. Выход из внутреннего цикла.
После завершения внешнего цикла, значение max содержит номер столбца с максимальным значением в текущей строке.
Сумма sum увеличивается на значение a[i, max].
Выполняется вывод значения sum с помощью функции writeln.
После завершения внешнего цикла, выводится сообщение Сумма = и значение суммы sum с помощью функции writeln.
Конец программы.