Описать функцию SumRow(A, M, N, K) вещественного типа, вычисляющую сумму элементов вещественной матрицы А - Pascal ABC

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

Описать функцию SumRow(A, M, N, K) вещественного типа, вычисляющую сумму элементов вещественной матрицы А размера MxN, расположенных в К-й строке (если К>М, то функция возвращает 0). Для данной матрицы А найти максимальную сумму. Код:

const
  nmax = 10;
type
  a = Array[1..nmax, 1..nmax] of Integer;
var
  Matr: a;
  n, m, i, j, k: integer;
 
function SumRow(Matr: a; n, m, k: integer): Integer;
var
  summa: Integer;
  j: integer;
begin
  summa:=0;
  if k > n then
    summa:=0
  else
    for j:=1 to m do
      inc(summa, Matr[k, j]);
  SumRow:=summa;
end;
 
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;
  repeat
    write('Введите номер строки: '); //k - номер строки
    readln(k);
  until (k > 0);
  writeln('Сумма строки с номером ', k, ' = ', SumRow(Matr, n, m, k));
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);

Но как применить к программе не могу понять.

Решение задачи: «Описать функцию SumRow(A, M, N, K) вещественного типа, вычисляющую сумму элементов вещественной матрицы А»

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

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.

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

Объявлены константы и тип данных для матрицы
Определена функция SumCol, которая вычисляет сумму элементов столбца матрицы
Задаются вопросы пользователю для ввода количества строк и столбцов матрицы
Выводится матрица на экран
Инициализируются переменные для хранения максимальной суммы и столбца
В цикле перебираются все столбцы матрицы, и если сумма элементов столбца больше текущей максимальной, то обновляются значения максимальной суммы и столбца
Выводится на экран максимальная сумма и столбец с максимальной суммой
Ввод/вывод осуществляет через файловый стандарт, поэтому для корректной работы программы необходимо наличие файла с настройками ввода/вывода (например, stdin.txt)