program sapxepsotrongxau;
uses crt;
var s:string;
i,so1,so2,j:integer;
tg:char;
begin
clrscr;
write('Nhap xau: '); readln(s);
i:=1;
while i<length(s) do
begin
if s[i] in ['0'..'9'] then
begin
j:=i+1;
while j<=length(s) do
begin
if s[j] in ['0'..'9'] then
begin
val(s[i],so1);
val(s[j],so2);
if so1>so2 then
begin
tg:=s[i];
s[i]:=s[j];
s[j]:=tg;
end;
end;
inc(j);
end;
end;
inc(i);
end;
writeln('xau sau khi sap xep la: ',s);
readln
end.
