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

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

Гость, все прекрасно и удивительно ... Только вот переменная A описана не там, где нужно... Она должна быть локальной в процедуре Vvod:

var first: plist;
Procedure vvod (var last:plist);
var
  s:char;
  a: plist;
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;