[Pascal] Двусвязный список.

[decantnik]

Само задание

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

http://paste.org.ru/?gu96ev

(Полный код не влазит)
Вопросы:

1)Как описать процедуры LBToFirst и LBToNext. В программе я это сделал без процедур (пометил комментарием).
2)Как описать процедуру d0 - делащую все нечетные элементы нулями
3)И как посчитать сколько элементов в списке ? о_О