Для матрицы А(4 строки,4 столбца) вывести те столбцы,в которых есть нулевые элементы

const n=4;
var i,j,kl,flag:integer;
   a:array[1..n,1..n] of integer;
Begin
 writeln('vvedite massiv:');
 for i:=1 to n do
  for j:=1 to n do
   readln(a[i,j]);
 writeln('danii massiv:');
 for i:=1 to n do
  begin
   for j:=1 to n do
    write(a[i,j],' ');
   writeln;
  end;
 flag:=0;
 writeln('rezult:');writeln;
 for i:=1 to n do
   begin
   kl:=0;
   for j:=1 to n do
     if a[j,i]=0 then kl:=1
   if kl=1 then
                begin
                 flag:=1;
                 for j:=1 to n do
                   write(a[j,i],' ');
                 writeln;
                end;
  end;
 if flag=0 then writeln('net takih');
End.

const n=4;
var i,j,kl,flag:integer;
   a:array[1..n,1..n] of integer;
Begin
 randomize;
 writeln('vvedite massiv:');
 for i:=1 to n do
  for j:=1 to n do
   a[i,j]:=random(100);
 writeln('danii massiv:');
 for i:=1 to n do
  begin
   for j:=1 to n do
    write(a[i,j],' ');
   writeln;
  end;
 flag:=0;
 writeln('rezult:');writeln;
 for i:=1 to n do
   begin
   kl:=0;
   for j:=1 to n do
     if a[j,i]=0 then kl:=1
   if kl=1 then
                begin
                 flag:=1;
                 write(i,' ');
             
                end;
  end;
 if flag=0 then writeln('net takih');
End.

uses crt;
const n=4;
type mas=array[1..n,1..n] of integer;
var a:mas;
procedure inmatrix(var x:mas;n:integer);
 var i,j:integer;
begin
 for i:=1 to n do
  for j:=1 to n do
   a[i,j]:=-10+random(20);
end;
procedure printmatrix(var x:mas;n:integer);
 var i,j:integer;
begin
 for i:=1 to n do
  begin
   for j:=1 to n do
    write(a[i,j]:4);
     writeln;
  end;
end;
procedure stolb(var x:mas;n:integer);
 var i,j:integer;
begin
 for i:=1 to n do
  for j:=1 to n do
   begin
    if a[i,j]=0 then
      writeln('Â ',j,' ñòîëáöå åñòü 0 ');
   end;
 
end;
begin
 clrscr;
  writeln('Ìàòðèöà :');
   inmatrix(a,n);
   printmatrix(a,n);
   stolb(a,n);
 readkey;
end.