Дерево поиска

Unit drp;
interface
type uzel=^zap;
     zap=record
            zn:byte;
            l,p:uzel;
         end;
Var
x,n:byte;
kor,uze:uzel;
procedure derevopoiska(var n:byte; kor:uzel);
procedure elementdereva(var x:byte; uze:uzel);
implementation
procedure derevopoiska;
var i:byte;
     begin
     new(kor);
     kor^.zn:=random(100);
     kor^.p:=nil;
     kor^.l:=nil;
     for i:=1 to (n-1) do
        begin
         x:=random(100);
         write(x:3);
         elementdereva (x,kor);
        end;
    end;
 procedure elementdereva;
   Begin
     if uze=nil then begin
                      new(uze);
                      uze^.zn:=x;
                      uze^.l:=nil;
                      uze^.p:=nil;
                      end
       else if x>uze^.zn then elementdereva(x,uze^.p)
                         else elementdereva(x,uze^.l);
                      end;
end.

program lab;
uses crt, drp;
var f:file of byte;
Procedure obhod(uze:uzel);
 Begin
    if uze<>nil then
    begin
       obhod(uze^.p);
       write(f,uze^.zn);
       obhod(uze^.l);
    end;
 end;
begin
assign(f, 'c:\input.txt');
rewrite(f);
randomize;
writeln('vvedite chislo elementov dereva');
readln(n);
kor:=nil;
derevopoiska(n,kor);
obhod(uze);
close(f);
end.