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

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,m,i,j,k,imx,jmx,f,p:byte;
    mx,mn:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов=');
readln(n);
until n in [1..nmax];
writeln('Введите ',n*m,' элементов матрицы:');
writeln('Исходная матрица:');
for i:=1 to m do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(10)-4;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
{подсчет строк без нолей}
k:=m;
for i:=1 to m do
for j:=1 to n do
if a[i,j]=0 then
 begin
  k:=k-1;
  break;
 end;
writeln('Количество строк без нолей=',k);
{находим минимум}
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];
f:=0;p:=0;
repeat{цикл поиска первого макс > 1 раза}
k:=0;
{находим максимальный}
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('Все элементы по 1 разу')
else write('Первый максимальный более 1 раза=',mx);
readln
end.