Вывести те строки матрицы, в которых есть нулевые элементы

Program Z_2_4_6_6; {основная программа}
const N=4; M=5; {строки, столбцы}
type matr=array [1..N, 1..M] of real;
Var A:matr;
    i,j:integer;
    f:boolean;
 
Procedure P (A:matr; i:integer; var f:boolean);
begin
k,j:integer;
var g:integer;
begin
k:=0;
for i:=1 to N do
if A[i,j]=0 then k:=k+1;
if k=0 then f:=true
else f:=false;
end;
 
begin
for i:=1 to N do
P (A,i,f);
if f=false then 
begin
k:=k+1;
for j:=1 to M do
readln (A[i,j]);
end;
if k=0 then
writeln ('Нет строк с нулями');
end.

Program Z_2_4_6_6; {основная программа}
const N=4; M=5; {строки, столбцы}
type matr=array [1..N, 1..M] of real;
Var A:matr;
    i,j:integer;
    f:boolean;
    k:integer;
Procedure P (A:matr; i:integer; var f:boolean);
 var k,j:integer;
      g:integer;
 begin
  k:=0;
  for j:=1 to m do
   if A[i,j]=0 then k:=k+1;
   if k=0 then f:=false
          else f:=true;
 end;
begin
   k:=0;
   for i:=1 to n do
    for j:=1 to M do
     begin
      write('A[',i,',',j,']=');
      readln (A[i,j]);
     end;
    writeln; 
    for i:=1 to N do
     begin
      P (A,i,f);
      if f 
       then
        begin 
         inc(k);
         writeln('строка ',i);
         for j:=1 to n do write(a[i,j]:4);
         writeln
        end 
     end; 
    if k=0 then writeln ('Нет строк с нулями');
end.