Динамические структуры данных - Pascal (86671)

type
  PTwoWayList=^TTwoWayList;
  TTwoWayList=record
    data:integer;
    prev:PTwoWayList;
    next:PTwoWayList;
  end;
 
procedure Add(const Item:integer; var pBegin,pEnd:PTwoWayList);
var
  p:PTwoWayList;
begin
  New(p);
  p^.data:=Item;
  if pBegin=nil then
    begin
      p^.prev:=nil;
      p^.next:=nil;
      pBegin:=p;
      pEnd:=p;
    end
  else
    begin
      if Item>=0 then
        begin
          pBegin^.prev:=p;
          p^.prev:=nil;
          p^.next:=pBegin;
          pBegin:=p;
        end
      else
        begin
          pEnd^.next:=p;
          p^.next:=nil;
          p^.prev:=pEnd;
          pEnd:=p;
        end;
    end;
end;