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

begin
  var(n,s):=(ReadInteger,+1);
  if n<0 then (n,s):=(-n,-s);
  var z:=n.ToString.Count(c->c='0');
  var t:=(s>0?n.ToString.Replace('0','').SortedDescending:n.ToString.Replace('0','').Sorted).JoinIntoString;
  (s>0?t[1]+'0'*z+t[2:]:'-'+t+'0'*z).Println;
end.

begin
  readlninteger().ToString.ToCharArray.SortedDescending.JoinIntoString.ToInteger.Print;
end.

begin
  var(n,s):=(ReadInteger,+1);
  if n<0 then (n,s):=(-n,-s);
  var z:=n.ToString.Count(c->c='0');
  var t:=n.ToString.Replace('0','');
  t:=(s>0?t.SortedDescending:t.Sorted).JoinIntoString;
  (s>0?t[1]+'0'*z+t[2:]:'-'+t+'0'*z).Println;
end.

begin
   var v := ReadLnInteger('n = ').ToString.ToCharArray.SortedDescending.Print;
end.

var 
  mas:array[1..11] of integer; {массив для хранения цифр числа}
  n, massize : integer;
begin
  {ввод исходного числа}
  Write('Введите натуральное число:');
  repeat
    ReadLn(n);
  until n>0;  
  
  
  massize:=0;
  repeat
    inc(massize); {увеличили счётчик/индекс в массиве цифр числа}
    mas[massize] := n mod 10; {сохранили последнюю цифру числа в массив}
    n := n div 10; {и отбросили последнюю цифру, путём деления числа на 10}
  until n=0;
  
  {отсортируем массив по убыванию}
  for var i:=1 to massize-1 do
    for var j:=i+1 to massize do
      if mas[i]<mas[j] then Swap(mas[i], mas[j]);
     
  {сформируем новое число}
  n:=0;
  for var i:=1 to massize do n := n*10 + mas[i];
 
  {выведем результат}  
  Writeln(n);
end.

var n,m,k,i,p:longint;
begin
write('Введите натуральное число n=');
readln(n);
p:=0;  //новое число
for i:=9 downto 0 do//начиная с 9 ищем в числе цифры по убыванию
 begin
  m:=n;//запоминаем число
  while m>0 do
   begin
    k:=m mod 10;//ищем цифру 9.8.7...0
    if k=i then p:=p*10+k;
    m:=m div 10;//сокращаем число на 10 и повторяем пока не проверим все цифры
   end;
 end;
write(p);
end.