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

[Jekaterina]

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

[Jekaterina]

Здравтвуйте! Может быть, кто-нибудь из вас посмотрит еще раз на мое решение? Я боюсь, начинаю просто зацикливаться на этой программе

[hiv]

Здравтвуйте! Может быть, кто-нибудь из вас посмотрит еще раз на мое решение? Я боюсь, начинаю просто зацикливаться на этой программе

Зацикливалось потому, что строки читала оператором read, который не читает строку целиком. Чтоб узнать где зацикливается жми Ctrl+Break. Подсвеченная строка тебе покажет это место. А дальше пошагово выполняешь программу нажимая F8 и смотришь в Watch значения переменных.
Вот работающий код:

const
   n=10;
var
   str: array[1..n] of string;
   f1, f2: text;
   i, m: word;

Function sort(var strf: array of string; mm: word):string;
Var   fl: boolean; temp: string; j: word;
begin
   repeat
      fl:=false;
      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
         else  {если совпадают первые символы, то сортируем наоборот}
              if (strf[j][1]=strf[j+1][1])and(strf[j]<strf[j+1]) then begin
                temp:=strf[j]; strf[j]:=strf[j+1]; strf[j+1]:=temp;
                fl:=true;
              end;
   until not (fl);
end;

begin
   Assign (f1, 'pasts.in');
   Assign (f2,'pasts.out');
   Reset (f1);
   Rewrite (f2);
   i:=1;
   while not(EoF(F1)) do begin
      readln(F1, str[i]);              {ведь строки читаем!}
      if length(str[i])>0 then inc(i); {пустые строки пропускаем}
   end;
   m:=i;

   sort(str, m);

   for i:=1 to m-1 do writeln (f2,str[i]); {если выводить то все}

   Close (f1);
   Close (f2);
end.