Найти наибольшую сумму из сумм строк двумерного массива и вывести номер этой строки

uses crt;
const nmax=20;
type mas=array [1..nmax,1..nmax] of integer;
var a: mas;
    max: integer;
    i,j,n,m,imax: byte;
    
function Sum (ns,rj: byte; z: mas): integer;
var j: byte; s: integer;
begin
s:=0;
for j:=1 to rj do
    inc(s,z[ns,j]);
Sum:=s;
end;
 
begin
repeat
write('Количество строк, не более ',nmax,', n='); readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов, не более ',nmax,', m='); readln(m);
until m in [1..nmax];
imax:=1;
write('Матрица');
for i:=1 to (n*4)-3 do
    write(' ');
writeln('Сумма строки');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        a[i,j]:=random(19)-9;
        write(a[i,j]:4);
        end;
    writeln(Sum (i,m,a):10);
    if i=1 then max:=Sum (i,m,a) else
       if Sum (i,m,a)>max then
          begin
          max:=Sum (i,m,a); imax:=i;
          end;
    end;
writeln('Максимальная сумма=',max,' в строке ',imax);
readln;
end.