работа с двунаправленным списком

[tina22222]

Добрый день. Помогите пожалуйста доделать прогу)))
Постpоить двунапpавленный список, элементами котоpого являются целые числа. Удалить из списка пеpвый и последний элементы.
Не уверенна что эти части правильны(((

формирование списка:

Type ukazat= ^S; 
   S= record 
      Inf: integer; 
      Next: ukazat; 
   End; .

Первый элемент списка:

New (u); {выделяем место в памяти}
u^. Next:= nil; {указатель пуст}
u^. Inf:=3; .

New(x); 
Readln(x^.Inf); 
x^. Next:= u; 
u:= x; .

добавление элемента в конец списка;

x:= hv;.

Удаление первого элемента:

x:= u; 
u:= u^.next; 
dispose(x); .

удаление из конца:

x:= u; dx:= u; 
while x^.next<> nil do 
begin 
dx:= x; x:= x^.next; 
end; 
dx^.next:= nil; 
dispose(x); .

[Stilet]

Постpоить двунапpавленный список,

Уже не правильно.

   S= record 
      Inf: integer; 
      Next,Prev: ukazat; 
   End; .

И соответственно заполнять нужно, используя переменки, указывающую на текущий и последний элементы списка.
Вот загляни сюда: http://www.programmersforum.ru/showthread.php?t=87357

[tina22222]

Если честно я вообще не сильно вижу разницу((( если в двух словах то чем они отличаются???

[Stilet]

если в двух словах то чем они отличаются???

Именно в двух словах:
Твой:

Next: ukazat;

Мой:

Next,Prev: ukazat;

Prev - элемент структуры, указывающий на предидущий элемент. Ибо :

Постpоить двунапpавленный список