Как сделать, чтобы программа считала сумму строк, а не столбцов? - Pascal ABC

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

const nmax = 10;
type a = Array[1..nmax, 1..nmax] of Integer;
//сумма в столбце K
function SumCol(Matr: a; n, k: integer): Integer;
var summa: Integer;
    i : integer;
begin
summa:=0;
for i:=1 to n do
inc(summa, Matr[i,k]);
SumCol:=summa;
end;
var Matr: a;
    n, m, i, j, k, sum_max, col_max: integer;
begin
randomize;
repeat
write('Введите количество строк от 1 до 10: ');
readln(n);
until (n in [1..nmax]);
repeat
write('Введите количество столбцов от 1 до 10: '); //m - количество столбцов
readln(m);
until (m in [1..nmax]);
writeln('Матрица: ');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    Matr[i, j]:=random(20);
    write(Matr[i, j]:4);
   end;
  writeln;
 end;
sum_max := -1;
col_max := 0;
for j:=1 to m do
 begin
  if SumCol(Matr,n,j) > sum_max then
   begin
    sum_max :=SumCol(Matr,n,j) ;
    col_max := j;
   end;
 end;
writeln('Столбец ',col_max,', сумма ',sum_max);
end.

Решение задачи: «Как сделать, чтобы программа считала сумму строк, а не столбцов?»

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

sum_max := -1;
    col_max := 0;
    for j:=1 to M do begin
        sum := 0;
        for i:=1 to N do
            sum := sum + a[i,j];
        if sum > sum_max then begin
            sum_max := sum;
            col_max := j;
        end;        
    end;
    
    writeln('Столбец ',col_max,', сумма ',sum_max);

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

Переменная sum_max инициализируется значением -1.
Переменная col_max инициализируется значением 0.
Происходит два вложенных цикла: a. Внешний цикл выполняется от 1 до M (количество строк). b. Внутренний цикл выполняется от 1 до N (количество столбцов). c. Внутри внутреннего цикла происходит суммирование элементов массива a[i,j]. d. Если сумма элементов больше значения переменной sum_max, то происходит обновление значений переменных sum_max и col_max.
После завершения циклов выводится сообщение с номером столбца и суммой.