Сортировка в текстовом файле Опции

[Jekaterina]

Добрый вечер! Не могу справиться с такой задачей: дан текстовой файл, содержащий названия городов
1) если он пуст, в файле вывода вывести слово nothing (с этим я справилась),
2) если названия городов начинаются на одну и ту же букву, то выводим города в файл в обратном порядке,
3) если города начинаются на разные буквы, то сортируем только по первой букве.
Помогите чайнику, пожалуйста!

[klem4]

    repeat
      fl:=false;   //<---------- устанавливаем фалг в 0
      for j:=0 to mm-2 do 
         if(strf[j][1]>strf[j+1][1]) then begin
            temp:=strf[j]; strf[j]:=strf[j+1]; strf[j+1]:=temp;
            fl := true; // <------------ если были перестановки, устанавливаем флаг в единицу
         end;
   until  not(fl); //<------------ а если не было, то флаг как был 0 так и остался и сорт. завршена