Дана матрица размером МxN. Найти номер ее строки с наибольшей суммой элементов и вывести данный номер

Program MassSum;
USES CRT;
Const
nmax = 10;
Type
myarray = array [1..nmax,1..nmax] of integer;
Var
M, N, st, max : Byte;
 
Procedure Index(M,N:byte);
Var
a         : myarray;
i, j, sum : integer;
Begin
WriteLn;
WriteLn('      Elementi massiva     Cymma ');
WriteLn('  |=============================|');
For i:=1 to M do
  Begin
    write(i,' ');
    sum:=0;
    For j:=1 to N do
      Begin
        a[i,j]:=random(45)+1;
        Write('| ',a[i,j]:3,' ');
        sum:=sum + a[i,j]
      End;
    write('|');
    textcolor(14);
    Write(sum:4);
      if sum > max then
        begin
          max:=sum;
          st:=i;
        end;
    textcolor(7);
    WriteLn(' |');
    If i=M then WriteLn('  |=============================|')
           else WriteLn('  |-----+-----+-----+-----+-----|');
  End;
End;
 
BEGIN
clrscr;
Randomize;
max:=0;
textcolor(7);
Write('Введите кол-во строк не больше ',nmax,' в массиве = ');
ReadLn(M);
Write('Введите кол-во столбцов не больше ',nmax,'  в массиве = ');
ReadLn(N);
Index(M,N);
WriteLn;
WriteLn('Номер строки : ',st);
Write('Максимальная сумма = ',max);
Readkey;
END.

Program MassSum;
USES CRT;
Const
nmax = 10;
Type
myarray = array [1..nmax,1..nmax] of integer;
Var
M, N, st, max : Byte;
 
Procedure Index(M,N:byte);
Var
a         : myarray;
i, j, sum : integer;
Begin
WriteLn;
GOTOXY(20,4);WriteLn('        Elementi massiva       Cymma ');
GOTOXY(20,5);WriteLn('  |=================================|');
For i:=1 to M do
  Begin
    GOTOXY(19,2*i+4);
    write(i,' ');
    sum:=0;
    For j:=1 to N do
      Begin
        a[i,j]:=random(45)+1;
        GOTOXY(15+j*7,2*i+4);
        Write('| ',a[i,j]:3,' ');
        sum:=sum + a[i,j]
      End;
    write(' |');
    textcolor(14);
    Write(sum:4);
      if sum > max then
        begin
          max:=sum;
          st:=i;
        end;
    textcolor(7);
    WriteLn(' |');
    If i=M then begin GOTOXY(20,2*i+5);WriteLn('  |=================================|'); end
           else begin GOTOXY(20,2*i+5);WriteLn('  |------+------+------+------+-----|'); end;
  End;
End;
 
BEGIN
clrscr;
Randomize;
max:=0;
textcolor(7);
Write('‚ўҐ¤ЁвҐ Є®«-ў® бва®Є *Ґ Ў®«миҐ ',nmax,' ў ¬ ббЁўҐ = ');
ReadLn(M);
Write('‚ўҐ¤ЁвҐ Є®«-ў® бв®«Ўж®ў *Ґ Ў®«миҐ ',nmax,'  ў ¬ ббЁўҐ = ');
ReadLn(N);
Index(M,N);
WriteLn;
WriteLn('Ќ®¬Ґа бва®ЄЁ : ',st);
Write('Њ ЄбЁ¬ «м* п б㬬  = ',max);
Readkey;
END.