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

program n332;
var n,m,a,p,k,i:integer;
begin
repeat
write('Введите число n=');
readln(n);
until(n>0);
a:=n;m:=0;
for i:=0 to 9 do
 begin
  p:=n;
  while p>0 do
   begin
    k:=p mod 10;
    if k=i then m:=m*10+k;
    p:=p div 10;
   end;
 end;
writeln('M=',m);
end.

var
  n, new_n, m, i: integer;
 
begin
  read(n);
  
  new_n := 0;
  for i := 9 downto 0 do
  begin
    m := n;
    while m > 0 do
    begin
      if m mod 10 = i
        then new_n := new_n * 10 + i;
      m := m div 10;
    end;
  end;
  writeln('Максимальное число = ', new_n);
end.

program prog;
 var n,i,j:integer;
     s,min:string;
begin
 write('Введите число n=');readln(n);
 str(n,s); min:='';
 for i:=0 to 9 do
   for j:=0 to length(s)-1 do
     if (ord(s[j])-ord('0'))=i then min:=min+s[j];
 writeln(min);
end.

program prog;
 var n,i,j:integer;
     s,min:string;
begin
 write('Введите число n=');readln(n);
 str(n,s); min:='';
 for i:=0 to 9 do
   for j:=1 to length(s) do
     if (ord(s[j])-ord('0'))=i then min:=min+s[j];
 writeln(min);
end.

begin
   var v := ReadLnInteger('n = ').ToString.ToCharArray.Sorted;
   var zero := v.Count(ch -> ch = '0');
   var n := StrToInt(v.Skip(zero).Take(1).Concat(ArrFill(zero, '0').Concat(v.Skip(zero + 1))).JoinIntoString(''));
   writeln(n);
end.