function exist(start:tree; a:char):boolean;
   begin
        if start<>nil then
           begin
                if start^.inf=a then exist:=true else
                exist:=((exist(start^.l,a))or(exist(start^.r,a)));
           end;
   end;

function exist(start:tree; a:char):boolean;
begin
  if start = nil then exist := false else
   if start^.inf=a then exist:=true else
    exist:=((exist(start^.l,a))or(exist(start^.r,a)));          
end;