Обход дерева слева - направо

  procedure InTree(tree);

   begin

       if Tree = nil then write('Дерево пусто')

       else

           with Tree^ do

             begin

                if left<>nil then InTree(left);

                if right<>nil then InTree(right); 

             end;

 end;