Двунаправленные списки

[Serge_Bliznykov]

однотипные переменные можно указывать через запятую:

type 
spisok=^element;
element = record
 info:integer; 
 next,prev :spisok; 
 end;

хотя, это, конечно, не принципиально.
а вот что принципиально - т.к. это то, что нужно обеспечить заполнение поля prev при добавлении записей в список:

var first,elem,last, prevElement:spisok; 
 

begin
 
 New(elem); 
 elem^.next:=nil;
 elem^.prev:=nil;
 elem^.info:=random(40)-20; 
 first:=elem;
 last:=elem; 

 prevElement := elem; {сохраним ссылку на предыдущий элемент}
New(elem);
 elem^.info:=random(40)-20;
 elem^.next:=nil;
 elem^.prev:=prevElement;
 last^.next:=elem; 
 last:=elem; // 
 
и т.д. ....