бінарне дерево пошуку

[Sonne_asja]

Визначити входження деякого елемента Е до дерева Т
(При розвязуванні використовувати динамычну структуру дерева бінарного пошуку)

[Sonne_asja]

program BIN_TREE;
uses crt;
type
ptr=^Node;
Node=record
data:integer;
left,right:ptr;
end;
var
root:ptr; b,x,k:integer;

Procedure Create(var tree:ptr;a:integer);
var p:ptr;
begin
if a>tree^.data then
begin
if tree^.right=nil then
begin
new(p);p^.data:=a;
p^.left:=nil;
p^.right:=nil;
tree^.right:=p;
end
else Create(tree^.right,a)
end
else
begin
if tree^.left=nil then
begin
new(p);p^.data:=a;
p^.left:=nil;
p^.right:=nil;
tree^.left:=p;
end
else Create(tree^.left,a)
end;
end;
procedure readtree(var tree:ptr);
begin
if tree<>nil then
begin
readtree(tree^.left);
write(tree^.data:5);
readtree(tree^.right);
end;
end;
procedure Count(var tree:ptr; var z,n:integer);
var p:ptr;
begin
p:=tree; n:=0;
while p<>nil do
begin
if z=p^.data
then n:=n+1
else
if z<=p^.data
then p:=p^.left
else p:=p^.right;
end;
writeln('n=',n);
end;
Begin
clrscr;
writeln('Input numbers');
read(b);
New(root);
root^.data:=b;
root^.right:=nil;
root^.left:=nil;
read(b);

while b<>0 do
begin
Create(root,b);
read(b);
end;
writeln;
writeln('Created tree');
readtree(root);
writeln;
writeln('element dereva');
readln(x);
Count(root,x,k);
writeln( 'k=',k);
End.

[Sonne_asja]

цикл зацикливается(((

[Sonne_asja]

Сообщение от Sonne_asja

цикл зацикливается(((

посмотрите пожалуйста...сама не могу нечегосделать

[Sonne_asja]

Помогите пожалуйста исправить ошибку