Вывести двоичное дерево в строку

uses crt;
type pnode=^node;
     node=record;
     data:integer;
     left,right:pnode;
     end;
 
var tree:pnode;
    i,n,x:integer;
    prov:boolean;
 
procedure add(var tree:pnode; x:integer);
begin
  if Tree=nil then begin
    new(tree);
    tree^.data:=x;
    tree^.left:=nil;
    tree^.right:=nil;
    Exit;
  end;
  if x<tree^.data then
       add(tree^.left,x)
  else add(Tree^.right,x);
end;
 
procedure LKP(tree:pnode);
begin
  if tree=nil then Exit;
  LKP(tree^.LEFT);
  write(' ', tree^.data);
  LKP(tree^.right);
end;
 
BEGIN
writeln('Создание дерева.');
write('Введите кол-во элементов: ');
readln(n);
for i:=1 to n do begin
   readln(x);
   add(tree,x);
end;
writeln;
writeln;
LKP(tree);
END.

procedure LKP(tree:pnode);
begin
   write('(');
   if tree <> nil then
   begin
      LKP(tree^.LEFT);
      write('(', tree^.data, ')');
      LKP(tree^.right);
   end;
   write(')');
end;

procedure LKP(tree:pnode);
begin
   write('(');
   if tree <> nil then
   begin
      LKP(tree^.LEFT);
      write('(', tree^.data, ')');
      LKP(tree^.right);
   end
   else write('-');
   write(')');
end;