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;
ф-я должна проверить, есть ли элемент а в дереве с корнем start
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;