Процедуры и функции. Определить количество строк, которые содержат хотя бы один нулевой элемент

CONST
 N=10;
Var
 A,B:ARRAY[1..N,1..N] of BYTE;
 C:ARRAY[1..N] of BYTE;
 bu:Boolean;
 Nzer_ln,A_old,A_new,Max_C,Jmax:BYTE;
 i,j,k,m:Integer;
 Med:Real;
BEGIN
 Randomize;
 For i:=1 to N do
  begin
   For j:=1 to N do
    begin
     A[i,j]:=Random(10);
     Write(A[i,j]:3);
    end;
   WriteLn;
  end;
 WriteLn;
 Nzer_ln:=0;
 For i:=1 to N do
  begin
   bu:=false;
   j:=0;
   repeat
    Inc(j);
    If A[i,j]=0 then bu:=true;
   until bu or (j=N);
   If bu then Inc(Nzer_ln);
  end;
 WriteLn('Number of lines, containing zero, is ',Nzer_ln);
 WriteLn;
 
 For i:=1 to N do
  For j:=1 to N do
   B[i,j]:=0;
 
 For j:=1 to N do
  begin
   k:=0;
   i:=1;
   A_old:=A[1,j];
   repeat
    m:=0;
    repeat
     Inc(i);
     Inc(m);
     A_new:=A[i,j];
    until (A_new<>A_old) or (i=N);
    Inc(k);
    B[k,j]:=m;
    If (A_new<>A_old) and (i=N) then
     begin
      Inc(k);
      B[k,j]:=1;
     end;
    If i<N then  A_old:=A_new;
   until i=N;
  end;
 
 For j:=1 to N do
  begin
   C[j]:=B[1,j];
   For i:=2 to N do if B[i,j]>C[j] then C[j]:=B[i,j];
  end;
 
 Jmax:=1;
 Max_C:=C[1];
 For j:=2 to N do
  if C[j]>Max_C then
   begin
    Jmax:=j;
    Max_C:=C[j];
   end;
 
 WriteLn('Number of column, containing the longest (',Max_C,') series is ',Jmax);
 
 ReadLn;
END.
__________________