Написать программу подсчета количества листов заданного бинарного дерева

Program RecordTree;
uses Crt;
Type
TTree=^Tree;
Tree=record
   number: integer;
   L,R: TTree;
end;
Var
  P,P1: TTree;
  n,num,i: integer;
  kol: integer;
Procedure Add(var P:TTree; num:integer);
begin
   if P=Nil then begin
     New(P);
     P^.number:=num;
     P^.L:=Nil;
     P^.R:=Nil;
   end else
   if P^.number<num then Add(P^.R,num)
     else if P^.number>num then Add(P^.L,num)
end;
Procedure PreOrder(P:TTree);
begin
  if P<>nil then begin
   write(P^.number,' ');
   if (P^.L=nil) and (P^.R=nil) then kol:=kol+1;
   PreOrder(P^.L);
   PreOrder(P^.R);
  end;
end;
Procedure Chistka(var P:TTree);
begin
  if P=Nil then exit;
  Chistka(P^.L);
  Chistka(P^.R);
  dispose(P);
end;

BEGIN
   clrscr;
   P:=Nil;
   write('Vvedite kolichestvo elementov v dereve N:');
   readln(N);
   writeln('Vvedite znacheniya vershin dereva: ');
   for i:=1 to N do begin
     readln(num);
     Add(P,num);
   end;
    P1:=P;
    writeln('Ishodnoe derevo:');
    kol:=0;
    PreOrder(P);
    writeln;
    writeln('Chislo listev v dereve:');
    writeln(kol);
    Chistka(P);
    readln;
END.