Определить количество столбцов, не содержащих ни одного нулевого элемента - Pascal ABC (12987)

const n=6;
      m=8;
var a:array[1..n,1..m] of integer;
    i,j,k,f:integer;
begin
randomize;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(10);
    write(a[i,j]:3);
   end;
  writeln;
 end;
k:=0;
for j:=1 to m do
 begin
  f:=1;
  i:=1;
  while(i<=n)and(f=1) do
  if a[i,j]=0 then f:=0
  else i:=i+1;
  k:=k+f;
 end;
writeln('Количество  столбцов без нолей=',k)
end.