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

uses
  Crt;
const
  N = 3;
var
  a: array [1..N, 1..N] of integer;
  m: set of byte;
  i,j,c: integer;
begin
  ClrScr;
  m := [1..N];
  for i := 1 to N do
  begin
    for j := 1 to N do
    begin
      a[i,j] := Random(21) - 10;
      if (a[i,j] = 0) and (j in m) then
        Exclude(m, j);
      Write(a[i,j]:3, ' ')
    end;
    WriteLn
  end;
  c := 0;
  for i := 1 to N do
    if i in m then
      Inc(c);
  WriteLn('Result: ', c);
  ReadLn
end.

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,k,s:byte;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=random(21)-10;
     write(a[i,j]:4);
    end;
   writeln;
 end;
s:=0;//количество столбцов с нолями
for j:=1 to m do
 begin
  k:=0;
  for i:=1 to n do
  if a[i,j]=0 then//если в столбце есть ноль
   begin
    k:=1;//фиксируем
    break;
   end;
  if k=1 then s:=s+1;//считаем столбец
 end;
write('Количество столбцов с нолями=',s);
readln
end.