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])    begin
t:=n[i];
n[i]:=n[j];
n[j]:=t;
end;
writeln('Минимальное число: ',n);
end.