Найти количество строк матрицы, не содержащих ни одного нулевого элемента — Pascal(Паскаль)

program qwe;
var
a:array [1..200,1..200] of real;
f,k,i,j,n,m:integer;
 
begin
write('Введите количество строк матрицы n=');
readln(n);
write('Введите количество столбцов матрицы m=');
readln(m);
writeln;
for i:=1 to n do
  begin
  for j:=1 to m do
    begin
    a[i,j]:=random(5);
    write(' ',a[i,j]:7:2);
    end;
    writeln;
  end;

  for i:=1 to n do
  begin
  f:=0;
  for j:=1 to m do
    begin
    if a[i,j]=0 then f:=1;
    end;
  if f=0 then inc(k);
  end;
writeln('Количество строк матрицы, не содержащей ни одного нулевого элемента - ',k);
readln;
end.