Найти число строк матрицы А (n, m), минимальный элемент которых меньше 0

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,k:byte;
    mn:integer;
begin
randomize;
repeat
write('Количество строк до ',nmax,' n=');
read(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
read(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(20)-2;
    write(a[i,j]:4);
   end;
  writeln;
 end;
k:=0;
for i:=1 to n do
 begin
  mn:=a[i,1];
  for j:=1 to m do
  if a[i,j]<mn then mn:=a[i,j];
  if mn<0 then k:=k+1;
 end;
write('Количество строк, где минимальный меньше 0=',k);
end.

uses crt;
const nmax=20;
type mtr=array[1..nmax,1..nmax] of integer;
procedure zast;
begin
window(0,0,80,25);
textbackground(11);
textcolor(12);
clrscr;
gotoXY(20,12);
write('Работу выполнила  Новикова Валерия Александровна');
gotoXY(30,14);
write('Группа - ПГСбд-12');
gotoXY(30,24);
write('Нажмите любую клавишу');
readkey;
window(0,0,80,25);
textbackground(15);
textcolor(0);
clrscr
end;
procedure vvod(var a:mtr;var n,m:byte;s:string);
var i,j:byte;
begin
writeln('Размеры матрицы ',s);
repeat
write('Количество строк до ',nmax,' n=');
read(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
read(m);
until m in [1..nmax];
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(20)-2;
clrscr;
end;
procedure vyvod(a:mtr;n,m:byte;s:string);
var i,j:byte;
begin
writeln('Матрица ',s);
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
end;
procedure kolstrok(a:mtr;n,m:byte);
var i,j,k:byte;
    mn:integer;
begin
k:=0;
for i:=1 to n do
 begin
  mn:=a[i,1];
  for j:=1 to m do
  if a[i,j]<mn then mn:=a[i,j];
  if mn<0 then k:=k+1;
 end;
writeln('Количество строк, где минимальный меньше 0=',k);
end;
var a1,a2:mtr;
    m1,n1,m2,n2:byte;
begin
randomize;
zast;
vvod(a1,n1,m1,'A1');
vvod(a2,n2,m2,'A2');
vyvod(a1,n1,m1,'A1');
kolstrok(a1,n1,m1);
vyvod(a2,n2,m2,'A2');
kolstrok(a2,n2,m2);
end.