двоичные деревья поиска

[Funy]

здраствуйте!!

а )Организовать программно двоичное дерево с помощью процедуры поиска и включения ключа (Search).
б )Написать и отладить программу для поэлементного вывода значений узлов построенного дерева обходом дерева слева направо(Inorder).


вот код, но он с ошибками! не могу понять где ошибся! Помогите пожалуйста!

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;
 
Type WPtr=^Word_;
      Word_=record
        key:integer;
        count:word;
        left,right:WPtr;
      end;
 
type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  f:TextFile;
    root:WPtr;
 
implementation
 
{$R *.dfm}
 
 
procedure Search (x:integer; var  p:WPtr);
begin
 
  if p= Nil then
   begin
  GetMem (p,sizeof(Word_));
  p^.key:=x;
  p^.count:=1;
  p^.left:=Nil;
  p^.right:=Nil;
  end
 
  else
  if  x<p^.key then
  search(x,p^.left)
   else
     if x>p^.key then Search (x,p^.right)
      else p^.count:=p^.count+1;
  end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
var
 x:Integer;
 
begin
           AssignFile(f,'f.txt');
      readln(f,x);
      while not eof (f) do begin
       Search(x,root);
       readln(f,x);
       end;
 end;
 
   procedure PrintTree(treenode : TTreeNode; root : WPtr);
   var newnode : TTreeNode;
   begin
      if Assigned(root) then
      begin
         newNode := TreeView1.Items.AddChild(treenode, IntToStr(root^.key));
         PrintTree(newnode, root^.right);
         PrintTree(newnode, root^.left);
      end;
   end;
 
var
   root : WPtr;
begin
   PrintTree(nil, root);
end;
 
end;
 
 
end.