бинарное дерево, программа зацикливается Опции

[-Катюшка-]

Помогите плиз!!Я не знаю, как исправить...

Procedure KolE(Root:TreePtr;n:Integer;Node:rabotnik);
Begin
 writeln('Введите элемент');
 Write('Введите ФИО сотрудника ');
 Readln(Node.FIO);
 Write('Введите год рождения сотрудника ');
 Readln(Node.godroj);
 Write('Введите пол сотрудника ');
 Readln(Node.pol);
 Write('Введите семейное положение сотрудника ');
 Readln(Node.cem);
 Write('Введите количество детей сотрудника ');
 Readln(Node.koldet);
 Write('Введите оклад сотрудника ');
 Readln(Node.oklad);
 n:=0;
 New(Root);
 while Root<>Nil do   {========Здесь зацикливается=====}
  if (Root^.data.FIO=Node.FIO) and (Root^.data.pol=Node.pol) and (Root^.data.cem=Node.cem) and
     (Root^.data.koldet=Node.koldet) and (Root^.data.oklad=Node.oklad) then
   n:=n+1;
  KolE(Root^.left,n,Node);
  KolE(Root^.right,n,Node);
  writeln('количество элементов равно',n);
End;

Здесь наверняка ещё куча ошибок, но помочь мне нужно только с while. Или подсказать, как исправить...
Эта процедура должна найти количество вхождений элемента в дерево. Элемент дерева--запись о сотруднике...Заранее спасибо!!