как вывести?

[Ам тя]

нужно составить дважды линейный связанный список ,ну и вывести.

program spisk;
TYPE
  tptr2l=^tel2l;
  tel2l=record
    inf:char;
    left:tptr2l;
    right:tptr2l;
    
  end;
var
  beg2l,end2l:tptr2l;

procedure sozdanie (var per:tptr2l);
const n=5;
var
p:tptr2l;
begin
  per:=nil;
  while not eoln do begin
        new(p);
        p^.right:=per;
        p^.left:=nil;
        read(p^.inf);
        per:=p;
        if p^.right <> nil then
           p^.right^.left:=p
  end;
end;

begin
writeln;
sozdanie(p);
end.

[NiCola999]

while p^.right <> nil
begin
{не знаю как печать в паскале =)), короч напечатать тут p^.inf}
p = p^.right
end

[Ам тя]

уг,
а как процедуру эту вызвать тогда ? х)
sozdanie