Задача по матрице

program sort;
uses crt;
const col=4;row=4;
type mm=array[1..50,1..50]of integer;
var i,j:integer;
    m:mm;
 
function ZeroInCol(m:mm; n:integer):boolean;
var i:integer;
    f:boolean;
 
begin
 f:=false;
 for i:=1 to row do
 if m[i,n]=0 then
 begin
  f:=true;
  break;
 end;
 ZeroInCol:=f;
end;
 
function ZeroInRow(m:mm; n:integer):boolean;
var i:integer;
    f:boolean;
 
begin
 f:=false;
 for i:=1 to col do
 if m[n,i]=0 then
 begin
  f:=true;
  break;
 end;
 ZeroInRow:=f;
end;
 
begin
 clrscr;
 randomize;
 
 for i:=1 to row do
 for j:=1 to col do
 m[i,j]:=random(10);
 
 
 writeln('Massiv do:');
 for i:=1 to row do
 begin
  writeln;
  for j:=1 to col do write(m[i,j]:2,' ');
 end;
 writeln;
 for i:=1 to row do
 for j:=1 to col do if ZeroInCol(m,j) and ZeroInRow(m,i) then m[i,j]:=0;
 
 writeln('Massiv posle:');
 for i:=1 to row do
 begin
  writeln;
  for j:=1 to col do write(m[i,j]:2,' ');
 end;
 readln;
end.

for i:=1 to row do
 for j:=1 to col do if ZeroInCol(m,j) and ZeroInRow(m,i) then m[i,j]:=0;

  for i:=1 to row do
    for j:=1 to col do 
      if ZeroInRow(m,i) then 
        if  ZeroInCol(m,j) then
           m[i,j]:=0;

Program Zadacha;
uses crt;
const
 row = 4;
 col = 4;
 
var
 a:array[1..row,1..col] of integer;
 i,j,i1,j1:integer;
 
begin
 clrscr;
 randomize;
 writeln('Ishodnaya matrica:');
 for i:=1 to row do begin
    for j:=1 to col do begin
       a[i,j]:=random(10);
       write(a[i,j]:3);
    end;
    writeln;
 end;
 i1:=0; j1:=0;
 for i:=1 to row do begin
    for j:=1 to col do begin
       if a[i,j] = 0 then begin
     if i1>0 then begin
        a[i1,j]:=0;
        a[i,j1]:=0;
     end;
     i1:=i;
     j1:=j;
       end;
    end;
 end;
 writeln;
 writeln('Izmenenaya matrica:');
 for i:=1 to row do begin
    for j:=1 to col do begin
       write(a[i,j]:3);
    end;
    writeln;
 end;
 readkey;
end.

program sort;
uses crt;
const col=4;row=4;
type mm=array[1..row,1..col]of integer;
var i,j:integer;
    m,nn:mm;
 
function ZeroInCol(m:mm; n:integer):boolean; {проверяет есть ли в столбце нуль}
var i:integer;
    f:boolean;
 
begin
 f:=false;
 for i:=1 to row do
 if m[i,n]=0 then
 begin
  f:=true;
  break;
 end;
 ZeroInCol:=f;
end;
 
function ZeroInRow(m:mm; n:integer):boolean; {проверяет есть ли в строке нуль}
var i:integer;
    f:boolean;
 
begin
 f:=false;
 for i:=1 to col do
 if m[n,i]=0 then
 begin
  f:=true;
  break;
 end;
 ZeroInRow:=f;
end;
 
begin
 clrscr;
 randomize;
 
 for i:=1 to row do
 for j:=1 to col do
 m[i,j]:=random(10); {заполнение массива случайными числами от 0 до 9}
 
 
 writeln('Massiv do:');
 for i:=1 to row do
 begin
  writeln;
  for j:=1 to col do write(m[i,j]:2,' ');
 end;
 writeln;
 for i:=1 to row do {проверяем элемент, если столбец и строка содержат нуль то элемент нового массива будет равен нулю, иначе - остаётся}
 for j:=1 to col do if ZeroInCol(m,j) and ZeroInRow(m,i) then nn[i,j]:=0 else nn[i,j]:=m[i,j]; 
 
 writeln('Massiv posle:');
 for i:=1 to row do
 begin
  writeln;
  for j:=1 to col do write(nn[i,j]:2,' ');
 end;
 readln;
end.