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

Program xxx;
uses
  crt;
const
  n=3;   {размерности массива}
  m=4;
var
  a: array [1..n,1..m] of integer;
  i,j,k,l,max,p,sum: byte;
begin
  clrscr;
  randomize;
  for i:= 1 to n do
  begin
    for j:= 1 to m do
    begin
      a[i,j]:= random(10);
      write(a[i,j]:2);
    end;
    writeln;
  end;
  k:=0;
  for i:= 1 to n do              {нахождение ненулевых строк}
  begin
    for j:= 1 to m do
      if a[i,j]<>0 then
        inc(k);
    if k=m then
      inc(l);
    k:=0;
  end;
  write('kol-wo nenulewih strok: ',l);
  writeln;
  write('wwwedite nomer stolbca: ');
  read(j);
  max:=a[1,j];                      
  for i:= 1 to n do        {находим максимальный элемент столбца}
    if a[i,j]>max then
      max:=a[i,j];
  write('max element: ',max);
  writeln;
  write('wwedite p: ');
  read(p);
  sum:=0;
  k:=0;
  for i:= 1 to n do              {кратность}
    for j:= 1 to m do
      if (a[i,j] mod p)=0 then
      begin
        sum:=sum+a[i,j];
        inc(k);
      end;
  writeln('summa: ',sum);
  writeln('kol-wo: ',k);
  readkey;
end.