Дано натуральное число N. Переставить местами его цифры так, чтобы получилось максимальное число, записанное теми же цифрами. (Программирование в Pascal ABC)

Var s: string; a: char; n,l: integer; i,j: byte;
begin
  write (Введите число:    );
  readln (n);
  Str(n,s);
  l:=length(s);
  
  for i:=1 to l-1 do begin
    for j:=i+1 to l do begin
         if s[i]lt;s[j]
            then begin a:=s[i]; s[i]:=s[j]; s[j]:=a end      
    end
  end;
  
  writeln;
  writeln (S)
end.

---------------------

Введите число:    273707

777320