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

program DuoMass;
uses crt;
const x=4;y=4;
Type M=array[1..x,1..y] of integer;
 
procedure Vvod(var mass:M);
var a,b:integer; f:text; nomFile:string;
begin
 write('Введите номер текстового файла: ');
 readln(nomFile);
 assign(f,nomFile+'.txt');Reset(f); 
 clrscr;
 writeln(' Массив чисел:');
 writeln;
 for b:=1 to y do begin 
 for a:=1 to x do begin readln(f,mass[a,b]); write(mass[a,b]:4) end;
 writeln; end;
 close(f);
end;
 
Function zero (A:m) : integer;
var i,j,k : integer;
begin
for i:= 1 to y do
for j:= 1 to x do
if A[x,y]=0 then 
begin
k:=k+1;
break;
end;
zero:=k;
end;
 
var stolbec:integer; mas:M; ff:text;
begin
Vvod(mas);
stolbec:=zero(mas);
writeln;
assign(ff,'itog.txt');Rewrite(ff);
if stolbec=0 then begin writeln('Столбец №',stolbec,'столбца содержат ноль.');
 writeln(ff,'Столбец №',stolbec,'столбца содержат ноль.'); end 
 else begin writeln('Во всех столбцах нет нуля!');
 writeln(ff,'Во всех столбцах нет нуля!'); end;
close(ff);
end.

program DuoMass;
uses crt;
const x=4;y=4;
Type M=array[1..x,1..y] of integer;
 
procedure Vvod(var mass:M);
var a,b:integer; f:text; nomFile:string;
begin
 write('Введите номер текстового файла: ');
 readln(nomFile);
 assign(f,'C:\'+nomFile+'.txt');Reset(f);
 clrscr;
 writeln(' Массив чисел:');
 writeln;
 for b:=1 to y do
     begin
     for a:=1 to x do
         begin
         read(f,mass[a,b]);
         write(mass[a,b]:4)
         end;
     writeln;
     end;
 close(f);
end;
 
Function zero (A:m) : integer;
var i,j,k : integer;
    b: boolean;
begin
k:=0;
for i:= 1 to y do
    begin
    for j:=1 to x do
        if (A[i,j]=0) then
           begin
           inc(k);
           break;
           end;
    end;
zero:=k;
end;
 
var mas:M; ff:text;
begin
Vvod(mas);
writeln;
assign(ff,'C:\itog.txt');Rewrite(ff);
if  zero (mas)<>0 then
    begin
    writeln(zero (mas),' столбeц(a/ов) содержат ноль.');
     writeln(ff,zero (mas),' столбцов содержат ноль.');
    end else
    begin
    writeln('Во всех столбцах нет нуля!');
    writeln(ff,'Во всех столбцах нет нуля!');
    end;
close(ff);
end.