нужно сделать прогу с процедурами, (определить номер строки и столбца, имеющие минимальную сумму элементов)

uses crt;
const nmax=20;
type mas=array [1..nmax] of integer;
     matr=array [1..nmax] of mas;
var a: matr;
    n,m,i,j,z: byte;
    sum,summin: integer;
 
procedure Summa (rj: byte; z: mas; var s: integer);
var e: byte;
begin
s:=0;
for e:=1 to rj do
    s:=s+z[e];
end;
 
begin
repeat
write('количество строк, не более - ',nmax,', n='); readln(n);
until n in [1..nmax];
repeat
write('количество столбцов, не более 20 ',nmax,', m='); readln(m);
until m in [1..nmax];
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;
          begin
 
 
  end;
    Summa (m,a[i],sum);
    writeln(sum:10);
    if i=1 then summin:=sum else
      if (sum<summin)then summin:=sum ;
    end;
 
writeln('минимальный элемент ',summin);
readln;
end.