Дана матрица  A(N, N) . Переменной  В  присвойте значение, равное количеству строк матрицы А, содержащих хотя бы одну нулевую компоненту — Pascal(Паскаль)

var
   a: array[1..100,1..100] of integer;
   i,n,b: byte;
   f: boolean;
begin
   randomize;
   write('размер: ');
   readln(n);
   for i:=1 to n do
      begin
         for j:=1 to n do
            begin
               a[i,j]:=random(21);
               write(a[i,j]:4);
            end;
         writeln;
      end;
   writeln;
   for i:=1 to n do
      begin
         f:=false;
         for j:=1 to n do
            if a[i,j]=0 then f:=true;
         if f then inc(b);
      end;
   writeln('количество таких строк: ',b);
   readln
end.