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

[-Катюшка-]

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

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]

Правильно зацикливается... Какое условие задано, то и проверяется...

New(Root);
while Root<>Nil do ...

будет выполняться до тех пор, пока программа не прервется из-за невозможности выделить память по New...

Когда используется рекурсия ВСЕГДА нужно описывать условия ее прекращения. Вот ты сначала сформулируй, когда ты хочешь, чтобы рекурсия прекращалась, и мы тебе поможем это исправить...

P.S. Никакого количества элементов дерева считаться не будет, ибо все то, как ты изменишь N внутри более "глубокой" рекурсии будет неизвестно в более "мелкой"... Используй Var хотя бы...

[-Катюшка-]

Получается, что процедура делает обход дерева слева направо, параллельно сравнивая каждый элемент дерева. Так? Сравниваем эл-т дерева с введённым, пока указатель не станет равным nil. Логика хоть правильная у меня?