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

Var A:array[1..20,1..20] of integer;
    i,j,m,n,max,imax,k,q:byte;
    b:boolean;
Begin
    write('Введите кол-во строк: ');readln(n);
    write('Введите кол-во столбцов: ');readln(m);
    For i:=1 to n do
     Begin
      For j:=1 to m do
       Begin
        A[i,j]:=random(11)-5;
        write(A[i,j]:3);
       End;
      writeln;
     End;
    k:=0;
    For j:=1 to m do
     Begin
      i:=0;b:=false;
      While (i<n)and(not b) do 
       Begin
        inc(i);
        if A[i,j]=0 then b:=true;
       End;
      if b then inc(k);
     End;
    max:=0;imax:=0;
    For i:=1 to n do
     Begin
      j:=0;b:=true;
      While j<n-1 do
       Begin
        inc(j);
        if A[i,j]=A[i,j+1] then 
         Begin
          q:=2;
          While (j<n-1)and(b) do
           Begin
            inc(j);
            if A[i,j]<>A[i,j+1] then b:=false;
           End;
          End;
         if q>max then 
          Begin
           max:=q;
           imax:=i;
          End;
        End;
       End;
     if k>0 then writeln('Кол-во столбцов с хотя бы одним нулем: ',k) 
      else writeln('Нету столбцов с хотя бы одним нулем!');
     if max>0 then writeln('Строка с наибольшей серией повторяющихся элементов: ',imax,' в ней ',max,' повторяющихся элементов')
      else writeln('Нету строки с повторяющимися элементами!');
     readln;
End.