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

[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.