Очередь Опции

[2407]

Дана очередь из букв, отсортировать по алфавиту.

[Jahnerus]

Как наверно видно прога упорядочевает только маленькие русские буквы ...
Если есть необходимость упорядочивать также и заглавные буквы или английские, то пиши ...

Код

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.