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

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

[Гость]

Люди! Я горю! Помогите иначе мне хана!
Вот что я сделал,но работает не првильно! volvo помоги ради бога!

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

.