Вывод созданного дерева

type Tree=^node;  //описание дерева
  node=record
    left:Tree;
    el:char;
    right:Tree;
  end;
var coren:Tree;
 
Procedure InitTree(var coren:tree); //Инициализация дерева
begin
  coren:=nil;
end;
 
Procedure PrintTree(t:tree; space:integer); //вывод
begin
  if t<>nil then
  begin
    Printtree(t^.right,space+1);
    for i:=1 to space do write(' ');
    writeln(t^.el);
    Printtree(t^.left,space+1);
  end;
end;
Function MakeTree:tree; //создание 
var c:char; t:tree;
begin
  read(c);
  if c in ['0'..'9'] then
  begin
    new(t);
    t^.el:=c;
    t^.right:=nil;
    t^.left:=nil;
  end
  else //прочитана открывающая скобка
  begin
    new(t);
    t^.left:=Maketree; //выражение f1
    read(c);
    if c in ['+','-','*'] then //знак
      t^.el:=c;
    t^.right:=MakeTree; //выражение f2
    read(c); //прочитать закрывающую скобку
  end;
  Maketree:=t;
end;
begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  Randomize;
  InitTree(coren);
  MakeTree;
.... тут как-тот вывести )
  Readln;
end