Подсчитать количество элементов в бинарном дереве

Procedure Search (P,N)
IF P->Key = N  THEN
Answer=P->Prev
ELSE
IF P->Left !=NIL THEN
Search (P->Left, N)
ENDIf
IF P->Right !=NIL THEN
Search (P->Right, N)
ENDIf
ENDIf
ENDProcedure
 
Answer=0
Search(Root,N)

uses
  crt;
type
  TData = integer;
  TTree = ^Tree;
  Tree  = record
  Data        : TData;
  Left, Right : TTree;
  end;
  //добавление узла в дерево
procedure AddTree(var aTree : TTree; aData : TData);
begin
  If aTree = nil then begin
    New(aTree);
    aTree^.Data := aData;
    aTree^.Left := nil; aTree^.Right := nil;
  end else if aTree^.Data > aData then AddTree(aTree^.Left,aData)
  else AddTree(aTree^.Right,aData);
end;
  //вывод дерева в инфикс порядке
procedure PrintTr(aTree : TTree);
begin
  if aTree = nil then exit;
  PrintTr(aTree^.Left);
  write(aTree^.Data:4);
  PrintTr(aTree^.Right);
end;
  //кол-во узлов б-дерева
function NumbNode(aTree : TTree) : integer;
begin
  If aTree = nil then NumbNode := 0
  else NumbNode := NumbNode(aTree^.Right) + NumbNode(aTree^.Left) + 1;
end;
var
  n, i : integer;
  a    : TData;
  T    : TTree;
begin
  clrscr;
  write('Number of nodes n = '); readln(n); //кло-во узлов дерева
  T := nil;  //инициация дерева
  randomize;
  for i := 1 to n do begin
    a := random(50) - 10;
    AddTree(T,a); //добавление узла с задан значением
  end;
  Writeln('Infix order:');  //узлы дерева в инфиксном (лкп) порядке
  PrintTr(T);
  writeln;
  writeln('Number of nodes in Tree : ',NumbNode(T));  //уровень узла с макс значением
  readln;
end.