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

// PascalABC.NET 3.2, сборка 1338 от 16.11.2016begin ReadInteger('Введите число:').ToString.SortedDescending.Printlnend.

Можно сравнить, в чью пользу решение)))

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]<s[j]            then begin a:=s[i]; s[i]:=s[j]; s[j]:=a end          end  end;    writeln;  writeln (S)end.---------------------Введите число:    273707777320