Отредактировать код

program lab51;
const n=4;
type matr=array [1..n,1..n] of integer;
 
var j,i,nol:integer;
procedure nul(a:matr; i,j:integer);
begin
for i:=1 to n do
for j:=1 to n do
  begin
    if a[i,j]=0 then
    writeln('stolbci s nolyami : ', a[n])
      else writeln('net stolbcov s nolyami');
      end;
  end;
 
var a:matr;
 
begin
  randomize;
  for i:=1 to n do
    begin
    for j:= 1 to n do
      begin
      a[i,j]:=random(15);
      write(a[i,j]:4);
      end;
      writeln
      end;
      nul(a,i,j)
end.

const n=4;
type matr=array [1..n,1..n] of integer;
function nul(a:matr;k:integer):boolean;
var i,j:integer;
begin
i:=1;
while(i<=n)and(a[i,k]<>0) do inc(i);
nul:=i<=n;
end;
 
var a:matr;
    j,i,k:integer;
begin
randomize;
for i:=1 to n do
 begin
  for j:= 1 to n do
   begin
    a[i,j]:=random(15);
    write(a[i,j]:4);
   end;
  writeln
 end;
writeln('Столбцы с нолями');
k:=0;
for j:=1 to n do
if nul(a,j) then
 begin
  k:=1;
  write('Столбец ',j);
  for i:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
if k=0 then write('Таких столбцов нет')
end.

const n=4;
type matr=array [1..n,1..n] of integer;
procedure nul(a:matr;k:integer;var f:boolean);
var i,j:integer;
begin
i:=1;
while(i<=n)and(a[i,k]<>0) do inc(i);
f:=i<=n;
end;
 
var a:matr;
    j,i,k:integer;
    f:boolean;
begin
randomize;
for i:=1 to n do
 begin
  for j:= 1 to n do
   begin
    a[i,j]:=random(15);
    write(a[i,j]:4);
   end;
  writeln
 end;
writeln('Столбцы с нолями');
k:=0;
for j:=1 to n do
 begin
  nul(a,j,f);
  if f then
   begin
    k:=1;
    write('Столбец ',j);
    for i:=1 to n do
    write(a[i,j]:4);
    writeln;
   end;
 end;
if k=0 then write('Таких столбцов нет')
end.