Чем отличается Дек от Двухсвязного списка?

procedure AddElem(var first,last:List; name1, fam1, otchestvo1,marka1,cvet1 :string; god1, NomerAvto1,NomerDvigat1 :integer);
begin
if first=nil then
begin
New(first);
first^.next:=nil;
first^.prev:=nil;
last:=first;
end
else
begin
New(last^.next);
last^.next^.prev:=last;
last:=last^.next;
last^.next:=nil;
end;
  last^.fam:=fam1;
  last^.name:=name1;
  last^.otchestvo:=otchestvo1;
  last^.marka:=marka1;
  last^.cvet:=cvet1;
  last^.NomerAvto:=NomerAvto1;
  last^.NomerDvigat:=NomerDvigat1;
  last^.god:=god1;
  end;
 
procedure Print(var first:List);
begin
 if first=nil then
  begin
    writeln('Список пуст!');
    exit;
  end;
  while first<>nil do
  begin
    Write(first^.fam, ' ',
          first^.name, ' ',
          first^.otchestvo, ' ',
          first^.marka, ' ',
          first^.cvet, ' ',
          first^.NomerAvto, ' ',
          first^.NomerDvigat, ' ',
          first^.god, ' ');
          first:=first^.next
  end;
  end;
 
Procedure DelElem(var first,last:List; elem:List);
begin
  if (first=nil) or (elem=nil) then
    exit;
  if elem=first then
  begin
    first:=elem^.next;
    if first<>nil then
      first^.prev:=nil
    else
      last:=nil;
    New(elem);
  end
  else
    if elem=last then
    begin
      last:=last^.prev;
      if last<>nil then
        last^.next:=nil
      else
        first:=nil;
      New(elem);
    end
    else
    begin
      elem:=first;
      while elem^.next<>elem do
        elem:=elem^.next;
      elem^.next:=elem^.next;
      if elem^.next<>nil then
        elem^.next^.prev:=elem;
      New(elem);
     end;
    end;