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

[Даша]

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

[Даша]

Да, понимаю. Каждый раз просто печатаю "ничего"

Добавлено через 17 мин.
Не могу сообразить с заполнением целочисленного дерева..

После строки:

a:=copy(s,back,i-back);

дописала:

IntInsert(X.Tree,n);

И в процедуре печати:

Procedure Print(var Root:TTree);
 Begin
  if Root<>nil then
   begin
    print(Root^.Left);
    begin
      write(Root^.Info.s,' ');
      writeln(Root^.Info.Tree^.info);
    end;
    print(Root^.Right)
   end
End;

Но безрезультатно..