procedure InTree(tree);
begin
if Tree = nil then write('Дерево пусто')
else
with Tree^ do
if left<>nil then InTree(left);
if right<>nil then InTree(right);
end;