Матрицы. Подпрограммы. Найти число строк матрицы с отрицательной суммой элементов

uses crt;
const nmax=20;
type mas=array [1..nmax,1..nmax] of integer;
var a1,a2: mas; na1,ma1,na2,ma2: byte;
 
procedure Gen (c: char;var ri,rj: byte; var z: mas);
var i,j: byte;
begin
repeat
write('Êîëè÷åñòâî ñòðîê ìàòðèöû ',c,', íå áîëåå ',nmax,', n='); readln(ri);
until ri in [1..nmax];
repeat
write('Êîëè÷åñòâî ñòîëáöîâ, íå áîëåå ',nmax,', m='); readln(rj);
until rj in [1..nmax];
for i:=1 to ri do
    for j:=1 to rj do
        z[i,j]:=random(199)-99;
end;
 
procedure Print (c: char; ri,rj: byte; z: mas);
var i,j: byte;
begin
writeln('Ìàòðèöà A',c);
for i:=1 to ri do
    begin
    for j:=1 to rj do
        write(z[i,j]:4);
    writeln;
    end;
end;
 
function Sum (rj,ns: 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;
 
function Count (ri,rj: byte; z: mas): byte;
var i,j,k: byte;
begin
k:=0;
for i:=1 to ri do
    if Sum (rj,i,z)<0 then inc(k);
Count:=k;
end;
 
begin
Gen ('1',na1,ma1,a1);
Print ('1',na1,ma1,a1);
writeln('Êîëè÷åñòâî ñòðîê ñ îòðèöàòåëüíîé ñóììîé=',Count (na1,ma1,a1));
writeln;
Gen ('2',na2,ma2,a2);
Print ('2',na2,ma2,a2);
writeln('Êîëè÷åñòâî ñòðîê ñ îòðèöàòåëüíîé ñóììîé=',Count (na2,ma2,a2));
end.