Прибавить 5 ко всем числам в тех строках матрицы, в которых есть хотя бы одно нулевое значение

uses crt;
const n=5;
const m=3;
var a:array[1..n,1..m] of integer;
i,j,k,s,l:integer;
begin
randomize;
writeln('I: ');
writeln('исходная матрица: ');
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(20)-7;
write(a[i,j]:4);
end;
writeln;
end;
writeln;
 
writeln('преобразованная матрица: ');
for i:=1 to n do begin
for j:=1 to m do begin
if a[i,j]=0 then begin
for k:=1 to m do begin
a[i,k]:=a[i,k]+5;
end;
end;
write(a[i,j]:4);
end;
writeln;
end;
 
end.

var
    mass : Array[0..254, 0..254] Of Extended;
    i, j, n, m : Byte;
    HaveZero : Boolean;
begin
    Write('n, m: '); ReadLn(n, m);
    if ((n <> 0) And (m <> 0))
    then
    begin
        Dec(n); Dec(m);
        for i := 0 to n do
            for j := 0 to m do
            begin
                Write('mass[', i + 1, '][', j + 1, ']=');
                ReadLn(mass[i, j]);
            end;
        WriteLn; WriteLn;
        for i := 0 to n do
        begin
            HaveZero := False;
            for j := 0 to m do
            begin
                HaveZero := mass[i, j] = 0;
                if (HaveZero)
                then
                    Break;
            end;
            for j := 0 to m do
            begin
                if (HaveZero)
                then
                    mass[i, j] := mass[i, j] + 5;
                Write(mass[i, j]:7:3, ' ');
            end;
            WriteLn;
        end;
    end
    else
        WriteLn('ERROR!');
end.

type
    TLine = Array[0..254] Of ShortInt;
 
var
    mass : Array[0..254] Of TLine;
    i, j, k, n, m : Byte;
    HaveZero : Boolean;
begin
    Write('n='); ReadLn(n); Dec(n); m := n;
    Randomize;
    for j := 0 to n do
    begin
        for i := 0 to n do
        begin
            mass[i, j] := Random(16) - 10;
            Write(mass[i, j]:5);
        end;
        WriteLn;
    end;
  i := 0;
  while (i <= n) do
    begin
        HaveZero := False;
        for j := 0 to m do
        begin
            HaveZero := mass[i, j] = 0;
            if (HaveZero)
            then
                Break;
        end;
    Inc(i);
        if (HaveZero)
        then
        begin
      if (i <= n)
      then
            for k := i - 1 to n - 1 do
                mass[k] := mass[k + 1];
            Dec(n);
      Dec(i);
        end;
    end;
    WriteLn; WriteLn;
    for j := 0 to m do
    begin
        for i := 0 to n do
            Write(mass[i, j]:5);
        WriteLn;
    end;
  ReadLn;
end.

type
    TColumn = Array[0..254] Of Extended;
 
var
    mass : Array[0..254] Of TColumn;
    i, j, n, m : Byte;
    AllPos : Boolean;
begin
    Write('lines, columns: '); ReadLn(n, m); Dec(n); Dec(m);
    Randomize;
    for i := 0 to n do
    begin
        for j := 0 to m do
        begin
            mass[j, i] := Random * 10 - 5;
            Write(mass[j, i]:6:2);
        end;
        WriteLn;
    end;
  i := 0;
  while (i <= m) do
  begin
    AllPos := True;
    for j := 0 to n do
    begin
      AllPos := mass[i, j] > 0;
      if (not AllPos)
      then
        Break;
    end;
    if (AllPos)
    then
    begin
      for j := m downto i do
        mass[j + 1] := mass[j];
      mass[i] := mass[2];
      Inc(i); Inc(m);
    end;
    Inc(i);
  end;
  WriteLn; WriteLn;
  for i := 0 to n do
    begin
        for j := 0 to m do
            Write(mass[j, i]:6:2);
        WriteLn;
    end;
  ReadLn;
end.