program mn;
uses crt;
var a:array[1..100,1..100]of integer;
i,j,n,m,mi,nmx,nmy,nmix,nmiy:integer;
BEGIN
ClrScr;
Write('N:');
readln(n);
mi:=10000;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(90);
Write(a[i,j]:4);
if a[i,j]>m
then begin
m:=a[i,j];
nmx:=i;
nmy:=j;
end;
if a[i,j] then begin
mi:=a[i,j];
nmix:=i;
nmiy:=j;
end;
end;
writeln;
end;
a[nmx,nmy]:=mi;
a[nmix,nmiy]:=m;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
Write(a[i,j]:4);
writeln;
end;
readln;
END.