program PascalGuru;
 
var A,C:array[1..30,1..30] of integer;
    i,j,m,n:integer;
{--------------------------------------------}
function maxA:integer;
var i,j,rez:integer;
begin
rez:=A[1,1];
for i:=1 to m do
for j:=1 to n do
    if A[i,j]>rez then rez:=A[i,j];
maxA:=rez;
end;
{--------------------------------------------}
begin
write('strok M= '); readln (m);
write('stolbcov N= '); readln (n);
 
{writeln ('Vvedite elementy massiva: '); }
for i:=1 to m do
for j:=1 to n do A[i,j]:=-5+random(26); { begin
write ('X[',i,',',j,']='); readln (A[i,j]); end;   }
 
 
write ('Vot vvedennyy vami massiv: ');
for i:=1 to m do begin writeln;
for j:=1 to n do write(A[i,j]:8); end;
 
for i:=1 to m do
for j:=1 to n do
    if A[i,j]<3 then A[i,j]:=maxA();
 
 
writeln;writeln;
write ('Vot preobrazovannyi massiv: ');
for i:=1 to m do begin writeln;
for j:=1 to n do write(A[i,j]:8); end;
 
readln;
end.