Matematické Fórum

Prosim potrebovala by som sure pomoct. Neviem si s tym vobec rady. mam vytvorene zoznam a potrebujem z neho urobit obojsmerny v pascali:
type PPrvok = ^TPrvok;
     TPrvok = record
             x: integer;
             Pred: PPrvok;
             Dalsi: PPrvok;
     end;
function Prvok (ax: integer, aDalsi: PPrvok, aPred: PPrvok): PPrvok;
var p: PPrvok;
  begin
    new(p);
    p^.x := ax;
    p^.Dalsi:= aDalsi;
    Prvok := p;

  end;
var ZAC, p : PPrvok;
  begin
    ZAC := Prvok(1,
           Prvok(2,
           Prvok(3,
           Prvok(4,
           Prvok(5,
           Prvok(6,
           Prvok(7,
           Prvok(8,
           Prvok(9,
           Prvok(10,
           Prvok(11, NIL)))))))))));
  p:= ZAC;
  while p<>NIL do begin
    write(p^.x,'');
    p:= p^.Dalsi;
  end;
  readln;
end.