Односвязный список преобразовать в двухсвяхный

type                       
 Spisok = ^ElSpiska; 
 ElSpiska = record 
       inf: integer; 
       next: Spisok ; 
 end;
 
 Dek = ^ElDeka; 
 ElDeka= record 
       inf: integer; 
       next, prev: ElDeka; 
 end;
 
var 
   First, sp:spisok;
   first1, last1, pred, tek : dek; 
begin ......
first1 := nil; last1 := nil; 
pred := nil; tek := nil; {все типа указатель на элемент дека }
sp := first; {sp - типа указатель на список }
while sp<> nil do {пока не конец списка }
begin 
  new(tek); { новый элемент дека }
  tek^.inf := sp^.inf;  tek^.next := nil; 
  tek^.prev := pred; {указатель на предыд-й элемент дека }
 
  if first1 = nil then { элемент первый в деке - запоминаем его адрес }
            first1 := tek
  else {не первый - устанавливаем связь предыдущего эл-та с текущим }
           pred^.next  := tek; 
  {двигаемся дальще - в пред. указатель записываем текущий эл-т дека, а в списке переходим к след элементу }
  pred := tek; 
  sp := sp^.next; 
end;  
 last1 := tek; { запоминаем указатель на посл элемент дека } 
.............
end.