Двусвязные списки

[Serp]

Я не прошу решить мне какую то задачу, просто прошу написать как создать двусвязный(или кольцевой) список и 2 процедуры, 1 с головы другая с хвоста проходят этот список.
Если у кого то есть ссылка как сделать такое буду очень признателен. Просмотрел несколько форумов и книг нигде не смог найти такого примера, преподователь в институте объяснил только как создать первый элемент, но этого мало для задачи.

[Stilet]

объяснил только как создать первый элемент

И как он вас учит? Выкладывай.

[Serp]

Он открывает учебник и читает...при этом в односвязных списках он даже рассказал не только про создание первого элемента, но и вставку элемента в голову.
Весь год сам разбирался в паскале, а вот со списками щас напряг...
{--------------------------}
Program spisok;
uses crt;
type
Srec = ^rec;
rec = record
int: Integer;
Prev: Srec;
Next: Srec;
end;
var
First,Cursor,Last: Srec;
i: Integer;
ch: char;

procedure proc(first : Srec);
var
p : Srec;
begin
p:=First;
while p<>nil do
begin
write(p^.int);
p:=p^.next;
end;
end;

begin
clrscr;

new(First);
First^.Int := 1;
First^.Next := nil;
First^.Prev := nil;

i:=1;
repeat
i:=i+1;
new(Cursor);
Cursor^.Int := i;
Cursor^.Next := First;
Cursor^.Prev := nil;
First^.Prev := Cursor;
First := Cursor;
writeln(i);
readkey;
ch:=readkey;
until CH='q';

proc(first);
end;

у меня вот так получилось написать...дальше не могу
И кажеться что я что то напутал с Next и Prev или процедуру неправильно написал

[Serp]

Видимо на этом форуме никто не знает списки...