Упорядочивание по алфавиту. Проблема. Опции

[Медвежонок]

Привет.
Условие задачи: в строке вводится последовательность русских слов, разделённых
одним или несколькими пробелами. Упорядочить эти слова по алфавиту. Требования : предусмотреть, чтобы слова, содержащие буквы "Ё" или "ё", также правильно упорядочивались.

procedure Sort(var A:TArr);
var {i,}j: integer; x: string; OK: boolean;
begin
 { i:=n;   }
    repeat
      OK:=true; //флаг
      i:=i-1;
      for j:= 1 to i do //цикл сортировки
        if A[j]>A[j+1] then //сравнение строк
          begin   {1}
            x:=a[j+1];
            A[j+1]:=A[j];
            A[j]:=x;
            OK:=false; //произошла сортировка, флаг сбрасывается в состояние false
          end;    {2}
    until OK; //цикл повторяется до тех пор, пока будут происходить перестановки
end;

Выше приведена процедура сортировки, только одна проблема - на выходе слова, начинающиеся с буквы "ё", стоят перед словами, начинающимися на букву "е" - как можно это исправить?

Пользуйся тегами для подсветки синтаксиса...

Сообщение отредактировано: volvo - 23.04.2009 22:36