program dgh;
 
var x:array [1..4,1..5] of integer;
    i,j,max,s1,s2:integer;
 
begin
writeln ('Vvedite massiv:');
 
for i:=1 to 4 do
for j:=1 to 5 do begin
write ('X[',i,',',j,']='); readln (x[i,j]); end;
writeln;
 writeln ('Vot vvedennyi massiv X:');
for i:=1 to 4 do
	begin
	 for j:=1 to 5 do
	  write(x[i,j]:3);
	   writeln;
	end;
 
max:=x[1,1];	
for i:=1 to 4 do
for j:=1 to 5 do
if x[i,j]>max then begin max:=x[i,j]; s1:=i; s2:=j;  end;
writeln;
writeln('MAX= ',max);	
writeln;
 
for i:=1 to 4 do x[i,s2]:=1;
for j:=1 to 5 do x[s1,j]:=1;
 
{************************************}
 writeln ('Vot PREOBRAZOVANNYI massiv X:');
for i:=1 to 4 do
	begin
	 for j:=1 to 5 do
	  write(x[i,j]:3);
	   writeln;
	end;
 
readln;
end.