Ввод/вывод дерева, помогите Опции

[DOG-Paul]

Вообещм есть процедура ввода дерева.
Нужно организовать его вывод по типу: A B . . C . .
Помогите кто может!

 
Program derevo;
uses crt;
type 	plist=^tlist;
      tlist= record
	        llink,rlink:plist;
	        info:char;
      end;
var a, first:plist;
Procedure vvod (var first:plist);
var s:char;
Begin
	readln(s);
	If s<>'.'
		then 
			begin
				new(a);
				first:=a;
				a^.info:=s;
				vvod(a^.llink);
				vvod(a^.rlink);
			end
		else
			first:=nil;
end;
Begin
	clrscr;
	first:=nil;
	vvod (first);
	readkey;
End.

[klem4]

Вот изменил чуть-чуть программу из FAQ, мог бы и сам сделать :

uses crt;

Type
  TType = char;

  TTree = ^TNode;
  TNode =
    Record
      Data: TType;
      Left, Right: TTree;
    End;
Procedure Add(Var T: TTree; i: TType);

  Procedure CreateNode(Var p: TTree; n: TType);
  Begin
    New(p);
    p^.Data := n;
    p^.Left := nil;
    p^.Right := nil
  End;

Begin
  If T <> nil Then
    With T^ Do Begin

        If Data < i Then Add(Right, i)
        Else
          If Data > i Then Add(Left, i)

    End
  Else
    CreateNode(T, i)
End;

Procedure PrintDown(T: TTree);
Begin
  If T = nil Then Exit;
  With T^ Do Begin

    Write(Data, ' ');
    PrintDown(Left); PrintDown(Right)

  End
end;

const
   s : array[1..10] of char = ('a','b','c','d','e','f','g','k','l','.');
Var
  ch: char;
  myTree : TTree;
  i : byte;


Begin

  clrscr;

  myTree := nil;

  for i := 1 to 10 do
   if s[i] <> '.' then begin

     Add(myTree, s[i]);
     PrintDown(myTree);
     WriteLn;
  end;
End.