Определить количество строк матрицы, не содержащих ни одного нулевого элемента

uses crt;
const nmax=15;
type mtr=array[1..nmax,1..nmax] of integer;
function kolstr(a:mtr;m,n:integer):integer;
var i,j,k,p:integer;
begin
k:=0;
for i:=1 to m do
 begin
  p:=0;
  j:=1;
  while (j<=n)and(p=0) do
  if a[i,j]=0 then p:=1
  else j:=j+1;
  if p=0 then k:=k+1;
 end;
kolstr:=k
end;
procedure Max2(a:mtr;m,n:integer;var mx:integer);
var mn:integer;
    i,j,imx,jmx,k,p,f:integer;
begin
{находим минимум в матрице}
mn:=a[1,1];
for i:=1 to m do
for j:=1 to n do
if a[i,j]<mn then  mn:=a[i,j];
{цикл поиска первого макс > 1 раза}
k:=0;
f:=0;p:=0;
repeat
{находим максимальный}
mx:=a[1,1];imx:=1;jmx:=1;
for i:=1 to m do
for j:=1 to n do
if a[i,j]>mx then
   begin
    mx:=a[i,j];
    imx:=i;
    jmx:=j;
   end;
{ищем равный ему}
for i:=1 to m do
for j:=1 to n do
if (a[i,j]=mx)and((i<>imx)or(j<>jmx))and(a[i,j]<>mn-1) then
 begin
  k:=1;
  f:=1;
 end;
if k=0 then{если не нашли}
  begin
   a[imx,jmx]:=mn-1;{меняем макс элемент на число меньше минимума}
   p:=p+1;{считаем число попыток}
  end;
until (k=1)or(p=m*n-1);{если нашли, или остался
только 1 непроверенный элемент, заканчиваем}
if f=0 then write('В матрице нет двух одинаковых элементов!')
else write('Наибольший, встреченный более 1 раза=',mx)
end;
var a:mtr;
    m,n,i,j,mx:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-5+random(15);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
writeln('Количество строк без нолей=',kolstr(a,m,n));
max2(a,m,n,mx);
readln
end.