Сортировка массива символов(Turbo Pascal 7.0))

[Rankin]

Есть программа которая может считывать текстовую информацию из заранее созданного файла. Но нужно еще чтобы она умела отсортироовывать слова и удалять те которые содержат хотябы один не латинский символ и выводить на экран отсортированный массив. Если кому не трудно. Помогите пожалуйста.

var
  f:text;
  n:string;
begin
  writeln('Soderjimoe faila');
  assign(f,'c:\1.txt');
  reset(f);
  while not EOF(f) do
    begin
      readln(f,n);
      writeln(n);
    end;
    close(f);
    readln;
end.

[ОДИНОЧЕСТВО В СЕТИ]

type
       DataItem = string[80];
       DataArray = array [1..80] of DataItem;

    { алгоритм быстрой сортировки для символьных строк }
     procedure QsString(var item: DataArray; count:integer);

       procedure qs(l, r: integer; var it:DataArray);
         var
         i, l: integer;
         x, y: DataItem;
       begin
         i := l; j := r;
         x := it[(l+r) div 2];
         repeat
           while it[i] < x do i := i+1;
           while x < it[j] do j := j-1;
           if i<=j then
           begin
             y := it[i];
             it[i] := it[j];
             it[j] := y;
             i := i+1; j := j-1;
           end;
         until i>j;
         if l<j then qs(l, j, it);
         if l<r then qs(i, r, it);
       end;
     begin
       qs(1, count, item);
     end; { конец быстрой сортировки }

[Serge_Bliznykov]

Rankin, Вам надо решить, как в Вашем файле содержатся слова - если каждое слово на отдельной строке - то читать их просто через readln(f, s) (как у Вас в примере), если же в файле на одной строке может быть несколько слов - то строчку прийдётся парсить (разбирать на слова). в последнем случае сразу определяйтесь, что в файле выступает как разделитель слов. Например, "ж/д" или "как-нибудь" это одно слово или два?.. Примеры разбора строки на слова Вы легко найдёте здесь на форуме.

и удалять те которые содержат хотябы один не латинский символ

чем удалять такие слова, проще проверять слово перед сохранением в массив, если есть символы s[i] not in ['a'..'z','A'..'Z'] then НЕ СОХРАНЯЕМ слово. И ещё, если слово содержит цифры - это латинские символы?

и последнее, думаю, что это учебная задачка.
если это не так, тогда крайне рекомендую воспользоваться Delphi. Там есть TStringList, который решает Вашу задачу буквально в несколько строчек кода!

___________________________________ ____________
Одиночество в Сети, Вы, как всегда на высоте! уважаю!

[Rankin]

Да слова хранятся в каждой строке. По поводу цифр речи не шло поэтому в программе это не учитывается.

[pascal123]

Здесь вы тоже можете почитать про массивы из символов ссылка