var_14

program var_14;
var
  mtrx: array[1 ..8, 1..8] of integer;
  i,j: integer;
  max,min:array[1..3] of integer;
begin
  for i:=1 to 8 do begin
    for j:=1 to 8 do begin
      mtrx [i,j]:=random(201)-100;
      write(mtrx [i,j]:4);
      if (i = 1)and(j = 1) then begin
        min[1]:=mtrx [i,j];
        max[1]:=min[1];
      end;
      if mtrx [i,j] > max[1] then begin
        max[1]:=mtrx [i,j];
        max[2]:=i;
        max[3]:=j;
      end;
      if mtrx [i,j] < min[1] then begin
        min[1]:=mtrx [i,j];
        min[2]:=i;
        min[3]:=j;
      end;
    end;
    writeln();
  end;
  writeln();
  writeln(min[1],' <=> ',max[1]);
  writeln();
  mtrx [min[2],min[3]]:=mtrx [min[2],min[3]]+mtrx [max[2],max[3]];
  mtrx [max[2],max[3]]:=mtrx [min[2],min[3]]-mtrx [max[2],max[3]];
  mtrx [min[2],min[3]]:=mtrx [min[2],min[3]]-mtrx [max[2],max[3]];
  for i:=1 to 8 do begin
    for j:=1 to 8 do begin
      if ((i=min[2])and(j=min[3]))or((i=max[2])and(j=max[3])) then
        write(mtrx [i,j]:4,'!')
      else
        write(mtrx [i,j]:4);
    end;
    writeln();
  end;
end.