вывод бинарного дерева на экран.

[Лунатик13]

Привет. У меня проблема мне нужно вывести бинарное дерево на экран, Не могу сделать. Туплю по полной. Помогите пожалуйста.

type

  pTree=^elTree;
  elTree=record
    sod: integer;
    left,right:pTree;
  end;
var

  i,x,otstup:integer;
  p:pTree;
procedure sozd(Var root:pTree; x:integer);
  begin
    if p=nil then
      begin
        new(root);
        p^.sod:=x;
        p^.left:=nil;
        p^.right:=nil;
      end
    else
      if x>=root^.sod then
         sozd(root^.right,x)
      else
         sozd(root^.left,x)
  end;


procedure print(p:ptree; o:integer);
  begin
    if p<>nil then
    begin
      print(p^.right,o+3);
      writeln(' ':o,p^.sod);
      writeln;
      print(p^.left,o+3);
    end;
  end;
Begin
p:=nil;
begin
sozd(p,x);
end;
readln;
print (p, otstup);
readln;
readln;
End.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Herly]

Почитайте Вирта или загуглите обходы, которые закомментированы в коде ниже
мб поможет пример на СИ:

void LKP(proot Head)//левое корень правое
{
	if (Head!=NULL)
	{
		LKP(Head->LeftTree);
		printf("key: %i, ",Head->key);
		printf("value: %s\n",Head->Value);
		LKP(Head->RightTree);
	}
}

void KLP(proot Head)//корень левое правое
{
	if (Head!=NULL)
	{
		printf("key: %i, ",Head->key);
		printf("value: %s\n",Head->Value);
		KLP(Head->LeftTree);
		KLP(Head->RightTree);
	}
}

void LPK(proot Head)//левое правое корень
{
	if (Head!=NULL)
	{
		LPK(Head->LeftTree);
		LPK(Head->RightTree);
		printf("key: %i, ",Head->key);
		printf("value: %s\n",Head->Value);
	}
}