Как наверно видно прога упорядочевает только маленькие русские буквы ...
Если есть необходимость упорядочивать также и заглавные буквы или английские, то пиши ...
Код
uses crt;
const alf='абвгдежзийклмнопрстуфхцчшщъыьэюя';
var i,j:byte;
s:string;
ch:char;
begin
clrscr;
write('Введите строку ');
readln(s);
for i:=1 to length(s) do begin
for j:=1 to length(s)-1 do begin
if pos(s[j],alf)>pos(s[j+1],alf) then begin
ch:=s[j];
s[j]:=s[j+1];
s[j+1]:=ch;
end;
end;
end;
writeln('Строка после преобразования');
writeln(s);
readln;
end.