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

[-Катюшка-]

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

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. Или подсказать, как исправить...
Эта процедура должна найти количество вхождений элемента в дерево. Элемент дерева--запись о сотруднике...Заранее спасибо!!

[volvo]

-Катюшка-, ну сколько раз говорить? Ты должна сначала заполнить элемент для поиска, а уже потом - ИСКАТЬ его в дереве!!!

А ты что делаешь? На каждом шаге рекурсии заново заполняешь E? Смысл в чем?

Procedure Count_E(Root:TreePtr;Var n:Integer;E:rabotnik);
Begin
  If Root<>Nil then begin
    With Root^.data do
      If
        (FIO=E.FIO) and (pol=E.pol) and (cem=E.cem) and
        (koldet=E.koldet) and (oklad=E.oklad) then Inc(n);
    Count_E(Root^.left,n,E);
    Count_E(Root^.right,n,E);
  end;
End;
...
  case key of
   '1':OrgTree;
   '2':Begin
        writeln('Выполняется процедура просмотра дерева');
        writeln;
        i:=0;
        Prosmotr(Top);
        Otobr(Top,1);
      readln;
     end;
   '3':Begin
      writeln('Введите элемент');
      Write('Введите ФИО сотрудника '); Readln(Еlement.FIO);
      Write('Введите год рождения сотрудника '); Readln(Еlement.godroj);
      Write('Введите пол сотрудника '); Readln(Еlement.pol);
      Write('Введите семейное положение сотрудника '); Readln(Еlement.cem);
      Write('Введите количество детей сотрудника '); Readln(Еlement.koldet);
      Write('Введите оклад сотрудника '); Readln(Еlement.oklad);

      Count_E(Root, n, Element);
      writeln('Количество вхождений элемента Е в дерево=',n);
      readln;
     end;
   end; { case }

всё равно не работает!

В чем это выражается? Зависает? Вылетает? Зацикливается?

P.S. Файл данных можешь присоединить? И напиши, что именно ты вводишь для поиска...

[-Катюшка-]

Всё равно не считает количество этих элементов!!!!! Всё время выводит ноль...