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

[decantnik]

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

Можно ли скинуть листинг работающей программы с двусвязным списком.. Любой. А дальше по-ходу дела разберусь.

[freemanoid]

Вот процедуры инициализации списка и добавления элемента в конец.

type
    PList = ^TList;
    TList = record
		inf: byte;
        next, prev: PList;
    end;
var
    ListBegin, ListEnd: PList;

procedure ListInit (var ListBegin, ListEnd: PList);
begin
    ListBegin:= nil;
    ListEnd:= nil;
end;

procedure AddToList (inf: byte; var ListBegin, ListEnd: PList);
var
	new_element: PList;	
begin
    new (new_element);
	if ListEnd = nil then
    begin
    	ListBegin:= new_element;
        ListEnd:= new_element;
        ListEnd^.next:= nil;
        ListEnd^.prev:= nil;
    end
    else
    begin
        new_element^.prev:= ListEnd;
        new_element^.next:= nil;
        ListEnd^.next:= new_element;
    end;
   	ListEnd:= new_element;
    new_element^.inf:= inf;
end;