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

Var
  n:string;
  t:char;
  i,j,k:integer;
begin
write('Число: ');
readln(n);
k:=length(n);
for i:=1 to k do
  for j:=i to k do
    if ord(n[j])lt;ord(n[i]) then
         begin
         t:=n[i];
         n[i]:=n[j];
         n[j]:=t;
         end;
writeln('Малое число: ',n);
end.