Найти сумму значений элементов 3 и 5 строк матрицы - Pascal

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

Данная матрица размерности 5х3. Найти сумму значений элементов 3 и 5 строк.

Решение задачи: «Найти сумму значений элементов 3 и 5 строк матрицы»

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

const n = 5; m = 3;
type matr = array[1..n, 1..m] of integer;
 
function SumRow(a: matr; i: integer): integer;
var j, sum: integer;
begin
  sum := 0;
  for j := 1 to m do sum := sum + a[i, j];
  SumRow := sum;
end;
 
var a: matr;
    i, j: integer;
begin
  randomize;
  for i := 1 to n do begin
    for j := 1 to m do begin
      a[i, j] := -15 + random(31);
      write(a[i, j]:4);
    end;
    writeln;
  end;
  writeln('Сумма 3-й строки: ', SumRow(a, 3));
  writeln('Сумма 5-й строки: ', SumRow(a, 5));
end.

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

Объявлены константы n = 5 и m = 3, которые определяют размер матрицы.
Объявлена переменная типа массив matr = array[1..n, 1..m] of integer; (массив a), которая будет представлять собой матрицу размером n на m.
Объявлена функция SumRow(a: matr; i: integer): integer; которая принимает на вход ссылку на матрицу a и номер строки i и возвращает сумму элементов этой строки.
В функции SumRow объявлены две переменные j и sum, которые используются для прохода по элементам строки и хранения суммы соответственно.
В функции SumRow происходит проход по элементам строки с помощью цикла for j := 1 to m и суммирование элементов с помощью оператора sum := sum + a[i, j].
В основной части программы объявлены переменные i, j и a, которые будут использоваться для работы с матрицей.
В основной части программы происходит заполнение матрицы случайными значениями с помощью двух вложенных циклов for i := 1 to n и for j := 1 to m.
Выводится заполненная матрица с помощью цикла for i := 1 to n и вложенного в него цикла for j := 1 to m и оператора write(a[i, j]:4).
Выводится сумма 3-й строки матрицы с помощью функции SumRow(a, 3).
Выводится сумма 5-й строки матрицы с помощью функции SumRow(a, 5).