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

[Даша]

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

[Даша]

Вот то что получилось написать....

Implementation
Procedure IntInsert(var RootInt:TIntTree; x:TElem);
//Создание дерева целых чисел
Procedure CreateNode(var p:TIntTree; n:TElem);
//Дополнительная процедура, создающая и инициализирующая новый узел
  begin
	  New(p);
	  p^.Info:=n;
	  p^.Left:=nil;
	  p^.Right:=nil
  End;
Begin
	if RootInt=nil Then CreateNode(RootInt,X) { создаем новый узел дерева }
	else
		with RootInt^ do
     begin
			if info<X then IntInsert(Right,X)
			else
				if info>X Then IntInsert(Left,X)
		 end;
End;


Procedure Insert(var root:TTree; X:T);
//Создание дерева
Procedure CreateNode(var p:TTree; n:T);
  begin
	  New(p);
	  p^.Info:=n;
	  p^.Left:=nil;
	  p^.Right:=nil
  End;
begin
	if Root=nil Then CreateNode(Root, X)
	else
		with Root^ do
     begin
			if info.s<X.s then Insert(Right,X)
			else
				if info.s>X.s Then Insert(Left,X)
				else
         IntInsert(info.tree, n)
		 end;
end;

Procedure WordsInTree(var f:text);
var i,back:integer; a:string;
Begin
  n:=0;
  while not eof(f) do
    begin
     Inc(n);
     ReadLn(f,s);
     i:=1;
     while(i<=length(s)) do
      begin
        while(i<=length(s)) and (s[i] in [',',' ']) do
          inc(i);
        if i<=length(s) then
          begin
           back:=i;
           while(i<=length(s)) and not(s[i] in [',',' ']) do
            inc(i);
           a:=copy(s,back,i-back);
           IntInsert(IntRoot,n);
           X.s:=a;
           Insert(Root,X);
          end;
      end;
    end;
End;

Procedure Print(var Root:TTree);
var
 i:integer;
 Begin
  if Root<>nil then
   begin
    print(Root^.Left);
    writeln(Root^.Info.s);
    print(Root^.Right)
   end
End;

Но не работает.. При вызове процедур WordInTree и Print ничего печатается.