Двусвязный список

[decantnik]

Даны указатели P1 и P2 на барьерный и текущий элементы двусвязного списка. Описать процедуры LBToFirst (L) (делает текущим первый элемент списка L), LBToNext (L) (делает текущим в списке L следующий элемент), LBSetData (L,D) (приваивает текущиму элементу списка L значение D целого типа, если данный элемент не является барьерным) и функция IsBarrier (L) логического типа (возвращает True если текущий лемент списка L является его барьерным элементом, и False в противном случае). С помощью процедур LBToFirst и LBToNext присвоить нулевые значения элементам исходного списка с нечетными номерами и вывести количество элементов в списке, а также новый адрес текущего элемента списка

Как бы процедура LBToFirst

procedure AddToBegin (list : p2list; d : integer);
var
  l : plist;
begin
  if list^ = nil then
  begin
     AddToEnd (list, d);
     exit
  end;
  while list^^.prev <> nil do
      list := @list^^.prev;
  New (l);
  l^.data := d;
  l^.prev := nil;
  l^.next := list^;
  list^^.prev := l
end;

Процедура LBToNext

procedure DelFromBegin (list : p2list);
var
 old : plist;
begin
  if list^ = nil then
    exit;
  while list^^.prev <> nil do
     list^ := list^^.prev;
   old := list^;
   list^ := list^^.next;
   list^^.prev := nil;
   Dispose (old)
end;

Меня интересует " LBSetData (L,D) (приваивает текущиму элементу списка L значение D целого типа, если данный элемент не является барьерным)". Что такое барьерный элемент в общем? Как реализовать эту процедуру?