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

var n,m: integer;
    a: array[1..100,1..100] of integer;
    i,j: integer;
    k,k0: integer;
 
begin
 
 
 
clrscr;
 
 
write('n=');
readln(n);
write(' m=');
readln(m);
 
if n=m then
   begin
        writeln('матрица должна быть прямоугольной!');
        readln;
   end;
 
until n<>m;
 
 
writeln;
for i:=1 to n do
 for j:=1 to m do
  a[i,j]:= random(20)-10;
writeln('исходный массив:');
 
 
for i:=1 to n do
 begin
  for j:=1 to m do
   write(a[i,j]:4);
  writeln;
 end;
 
for j:=1 to m do
 begin
 k0:=0;
 for i:=1 to n do
  if a[i,j]=0 then inc(k0);
 if k0=0 then inc(k);
 end;
 
write('количество столбцов <> 0 =',k);
 
writeln;
readln;
end.

var c:array[1..100]
41. for j:=1 to m do
     begin
     k0:=0;
     for i:=1 to n do
     if a[i,j]=0 then 
       begin 
       inc(k0);
       c[k0]:=a[i,j];
       end;
     if k0=0 then inc(k);
47. end;
48. writeln('номера столбцов, содержащих нули: ');
     for i:=1 to k0 do
     write (c[i]:2);
49. write('количество столбцов <> 0 =',k);

for i:=1 to n do
begin
  for j:=1 to m do
    begin
      if (a[i,j]=0)
        then writeln('Номер столбца, где содержится нулевой элемент=',j);
    end;
end;

uses wincrt;
var n,m: integer;
    a: array[1..100,1..100] of integer;
    i,j: integer;
    k,k0: integer;
begin
randomize;
write('n=');
readln(n);
write('m=');
readln(m);
if n=m then
   begin
        writeln('матрица должна быть прямоугольной!');
        readln;
   end;
writeln;
for i:=1 to n do
 for j:=1 to m do
  a[i,j]:= random(20)-1;
writeln('исходный массив:');
for i:=1 to n do
 begin
  for j:=1 to m do
   write(a[i,j]:4);
  writeln;
 end;
for j:=1 to m do
 begin
 k0:=0;
 for i:=1 to n do
  if a[i,j]=0 then inc(k0);
 if k0=0 then inc(k);
 end;
for i:=1 to n do
begin
  for j:=1 to m do
    begin
      if (a[i,j]=0)
        then writeln('Номер столбца, где содержится нулевой элемент=',j);
    end;
end;
writeln;
end.

uses wincrt;
var z:byte;
    n,m: integer;
    a: array[1..100,1..100] of integer;
    i,j: integer;
    k,k0: integer;
begin
randomize;
write('n=');
readln(n);
write('m=');
readln(m);
if n=m then
   begin
        writeln('матрица должна быть прямоугольной!');
        readln;
   end;
writeln;
for i:=1 to n do
 for j:=1 to m do
  a[i,j]:= random(20)-1;
writeln('исходный массив:');
for i:=1 to n do
 begin
  for j:=1 to m do
   write(a[i,j]:4);
  writeln;
 end;
for j:=1 to m do
 begin
 k0:=0;
 for i:=1 to n do
  if a[i,j]=0 then inc(k0);
 if k0=0 then inc(k);
 end;
 z:=0;
for i:=1 to n do
begin
  for j:=1 to m do
    begin
      if (a[i,j]=0)
          then begin
            writeln('Номер столбца, где содержится нулевой элемент=',j);
            z:=z+1;
        end;
    end;
end;
writeln('Количество столбцов содержащих нули:',z);
writeln;
end.