В матрице найти номер строки, имеющей максимальную сумму элементов

{Написать процедуру и функцию, которая находит в прямоугольной 
матрице номер строки, имеющей максимальную сумму элементов. 
В основной программе ввести матрицу и проверить работу подпрограмм.}
 
type
  myArray = array [,] of integer;
 
///Возвращает строку с максимальной суммой элементов  
function IndexMaxSum(A: myArray; n, m: Byte): integer;
begin
  result := 0;
  var maxSum := -100 * n;
  for var i := 0 to n - 1 do begin
    var s := -100 * n;
    for var j := 0 to m - 1 do 
      S := S + a[i, j];
    if maxSum < S then begin
      maxSum := S;
      result := i
    end
  end;
  inc(result)
end;
 
///Вводит массив
procedure InputArray(var A : myArray; n, m: Byte);
begin
  SetLength(A, n, m);
  randomize;
  for var i := 0 to n - 1 do begin
    for var j := 0 to m - 1 do begin
      a[i, j] := random(-100, 200);
      write(a[i, j]:5)
    end;
    writeln
  end
end;
 
var
  n, m: byte;
  A: myArray;
  
begin
  n := 5;
  m := 7;
  InputArray(A, n, m);
  writeln;
  write('Строка с максимальной суммой элементов: ', IndexMaxSum(A, n, m))
end.