Какое наибольшее число можно получить, если поменять местами две цифры заданого целого числа n?

var
  s: String;
  i, j: Integer;
  t: Char;
begin
  ReadLn(s);
  if s[1]='-' then begin
    j:=3; for i:=4 to Length(s) do if s[j]>s[i] then j:=i;
    t:=s[j]; s[j]:=s[2]; s[2]:=t;
  end else begin
    j:=2; for i:=3 to Length(s) do if s[j]<s[i] then j:=i;
    t:=s[j]; s[j]:=s[1]; s[1]:=t;
  end;
  WriteLn(s);
end.

Var
  n : int64;
  st : String;
 
Function SwapCh(s : String; a,b : Byte) : String;
Begin
  s[a]:=Chr(Ord(s[a]) xor Ord(s[b]));
  s[b]:=Chr(Ord(s[a]) xor Ord(s[b]));
  s[a]:=Chr(Ord(s[a]) xor Ord(s[b]));
  SwapCh:=s;
end;
 
Function SW(s : String) : String;
Var
  Positiv : Boolean;
  i,j : Byte;
  smax  : String;
Begin
  Positiv:=s[1]<>'-';
  If s[1]='-' then Delete(s,1,1);
  smax:=SwapCh(s,1,2);
  If Length(s)>1 then
  Begin
    For i:=1 to Length(s)-1 do
     For j:=i+1 to Length(s) do
       If (Positiv and (SwapCh(s,i,j)>smax)) or
          (not Positiv and (SwapCh(s,i,j)<smax)) then smax:=SwapCh(s,i,j) 
  end else smax:=s;
  If not Positiv then smax:='-'+smax;
  SW:=smax;
end;
 
Begin
  Readln(n);
  Str(n,st);
  Writeln(SW(st));
end.

var
s:ansistring;
i,n,k,j,max:longint;
w:char;
begin
readln (s);
if s[1]='-' then begin
delete (s,1,1);
j:=1;
while k=0 do begin
k:=0;
max:=ord(s[j])-48;
for i:=1 to length(s) do 
if (ord(s[i])-48 < max)and(i>j)and( ((j=1)and(ord(s[i])-48>0))or(j>1) ) then begin inc (k); max:=ord(s[i])-48; end;
if k=0 then inc (j);
if j>length(s) then begin writeln ('-',s); exit; end;
end;
for i:=length(s) downto j+1 do 
if ord(s[i])-48 = max then begin
w:=s[i]; s[i]:=s[j]; s[j]:=w; end;
writeln ('-',s);
exit; end;
j:=1;
while k=0 do begin
k:=0;
max:=ord(s[j])-48;
for i:=1 to length(s) do 
if (ord(s[i])-48 > max)and(i>j) then begin inc (k); max:=ord(s[i])-48; end;
if k=0 then inc (j);
if j>length(s) then begin writeln (s); exit; end;
end;
for i:=length(s) downto j+1 do 
if ord(s[i])-48 = max then begin
w:=s[i]; s[i]:=s[j]; s[j]:=w; end;
writeln (s);
end.