Выписать слова в алфавитном порядке Опции

[Даша]

Добрый день! Помогите пожалуйста со следующей задачей:
Дан текстовый файл, состоящий из слов, разделенных пробелами и запятыми. Слова по строкам не переносятся.
Необходимо упорядочить слова в алфавитном порядке с указанием строк, в которых они встречаются. Реализовать
всё надо с помощью деревьев.

[TarasBer]

Ну в данном случае может помочь дерево, у которого каждый узел имеет 256 потомков (по количеству вариантов, которые может принимать символ).

http://ru.wikipedia.org/wiki/Префиксное_дерево

Например, для набора слов "стол, стул, табуретка", дерево будет иметь вид

Код

.-с-т-о-л
|  `-у-л
`-т-а-б-у-р-е-т-к-а

Добавление слова в такое дерево делается очень просто,

  if T = nil then New(T);
  S := T;
  // спускаемся к нужному листу
  for i := 1 to Length(Key) do begin
    if S^.Child[Key[i]] = nil then New(S^.Child[Key[i]]);
    S := S^.Child[Key[i]];
  end;
  S^.Valid := True;
  S^.NumberOfString := N;

обход (рекурсивный) тоже очень просто.

if T = nil then Exit;
if T^.Valid then Writeln(Key, ' ', T^.NumberOfString);
SetLength(Key, Length(Key) + 1);
for i := #0 to #255 do begin
  Key[Length(Key)] := i;
  obhod(T^.Childs[i], Key);
end;

стартовать обход надо с пустой строки, понятно