Бинарное дерево

type
    PTree=^Tree;
    Tree=record
        key:word;
        info: string;
        left,right: PTree;
    end;
procedure Check(Var flag: boolean);
Var P: PTree;
Begin
     flag:=false;
     if ('a' in P^.info) and ('e' in P^.info) and ('i' in P^.info) and
        ('o' in P^.info) and ('u' in P^.info)
         then flag:=true;
end;
function Count(root:PTree):byte;
Var k:byte;
begin
       if root<>nil then begin
           Count(root^.left);
           Check(flag);
           if flag then inc(k);
           Count(root^.right);
       end
       else k:=0;
       Result:=k;
end;