Дано естественное число n. Переставить его цифры так, чтобы образовалось наибольшее

uses crt;
var n,m,k,i:word;
begin
clrscr;
repeat
writeln(Введите натуральное число lt;99999);
readln(n);
until(ngt;0)and(nlt;99999);
for i:=9 downto 0 do
nbsp;begin
nbsp;nbsp;m:=n;
nbsp;nbsp;while mgt;0 do
nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;k:=m mod 10;
nbsp;nbsp;nbsp;nbsp;if k=i then
nbsp;nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;write(k);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;break;
nbsp;nbsp;nbsp;nbsp;nbsp;end
nbsp;nbsp;nbsp;nbsp;else m:=m div 10;
nbsp;nbsp;nbsp;end;
nbsp;end;
readln
end.