program xxx;
uses CRT;
var
j, i, n:integer;
m:char;
s:string;
begin
write('Vvedite stroku ');
readln(s);

n:=length(s);

for i:=1 to n-1 do
for j:=1 to n-1 do
if (ord(s[j])>ord(s[j+1])) and (s[j]<>' ') and (s[j+1]<>' ')  then
begin

m:=s[j];
s[j]:=s[j+1];
s[j+1]:=m;

end;

write('result= "',s,'"');

end.