var A : array [1..10, 1..12] of integer;
i, j, fxi, fxj, fni, fnj : integer;

begin
for i:=1 to 10 do
    for j:=1 to 12 do
    A[i, j] := random(120);

fxi:=1; fxj:=1;
fni:=1; fnj:=1;
for i:=1 to 10 do
    for j:=1 to 12 do begin
    if A[i, j] > A[fxi, fxj] then begin
        fxi:=i;
        fxj:=j;
    end;
    if A[i, j] < A[fni, fnj] then begin
        fni:=i;
        fnj:=j;
    end;
    end;


for j:=1 to 12 do begin
    i:=A[fxi, j];
    A[fxi, j]:=A[fni, j];
    A[fni, j]:=i;
end;
end.