Определить номер строки двумерного массива (m, n) с наибольшей суммой

Const nmax=20;
Type matr=array[1..nmax,1..nmax] of real;
Var A:matr;
    i,j,n,m,imax:integer;
    max,sum:real;
Procedure InPut(Var A:matr;m,n:integer);
Var i,j:byte;
Begin
    For i:=1 to m do
    Begin
      writeln('Введите ',n,' чисел строки ',i);
      For j:=1 to n do
       read(A[i,j]);
    End;
End;
Begin
    Repeat
     write('Введите M: ');readln(m);
    Until m in [1..nmax];
    Repeat
     write('Введите N: ');readln(n);
    Until n in [1..nmax];
    InPut(A,m,n);
    For i:=1 to m do
    Begin
      For j:=1 to n do
       write(A[i,j]:6:2);
      writeln;
    End;
    imax:=1;
    For j:=1 to n do
     max:=max+A[1,j];
    For i:=2 to m do
    Begin
      sum:=0;
      For j:=1 to n do
       sum:=sum+A[i,j];
      if sum>max then
      Begin
        imax:=i;
        max:=sum;
      End;
    End;
    writeln('Индекс строки с max суммой = ',imax,' там сумма = ',max:0:2);
End.