Динамический список

procedure AddR(var ListN, ListK: PElem; r: TInfo); // адреса начала и конца списка и R
var ListC: PElem;  // текущий элемент списка
begin
  if ListN = nil then CreateList(ListN, ListK, r)  // если список пуст
  else
    if r > 0 then AddFirst(ListN, ListK, r)  // добавить в начало
    else
       if r < 0 then AddLast(ListN, ListK, r)  // добавить в конец
      else
         begin // найти после какого
           ListC:=ListN; // с начала списка
           while (ListC^.next^.info) >= r do
             ListC := ListC^.next;
           AddMedium(ListN, ListC, ListK, r)  // добавить после текущего
         end;
end;
 
// добавить новый элемент перед первым
procedure AddFirst(var ListN: PElem; ListK: PElem; r: TInfo);
var Elem: PElem;
begin
  new(Elem);
  Elem^.info:=r;
  Elem^.next:=ListN;
  ListN:=Elem; // теперь он 1-ый
end;
 
 
 
// добавить новый элемент в конец
procedure AddLast(ListN: PElem; var ListK: PElem; r: TInfo);
begin
  new(ListK^.next);
  ListK^.next^.info:=r;
  ListK^.next^.next:=nil;
  ListK:= ListK^.next; 
end;
 
 
// добавить новый элемент в середину после ListC (не в конец)
procedure AddMedium(ListN,ListC,ListK: PElem; r: TInfo);
var Elem: PElem;
begin
  new(Elem);
  Elem^.info:=r;
  Elem^.next:=ListC^.next; // после него то, что было после ListC
  ListC^.next:=Elem; // а он сам после ListC
end;

type
  TInfo = Integer;
  
  PElem = ^TElem;
  TElem = record
    info : TInfo;
    next : PElem;
  end;
 
procedure Out(List : PElem);
begin
  if List = nil then
    Write('Список пуст.')
  else
    repeat
      Write(#32, List^.info);
      List := List^.next;
    until List = nil;
  WriteLn;
end;
 
function CreateElem(info : TInfo; next : PElem) : PElem;
var Cur : PElem;
begin
  New(Cur);
  Cur^.info := info;
  Cur^.next := next;
  CreateElem := Cur;
end;
 
procedure Add(var List : PElem; info : TInfo);
var Cur : PElem;
begin
  if List = nil then
    List := CreateElem(info, nil)
  else if info < 0 then // в конец
    begin
      Cur := List;
      while Cur^.next <> nil do
        Cur := Cur^.next;
      Cur^.next := CreateElem(info, Cur^.next);
    end
  else // info >= 0 - добавить 0 или положительное число перед 0
    begin
      if List^.info <= 0 then
        List := CreateElem(info, List) // в начало: перед отрицательными (а если это 0, то вообще без разницы в конец или начало)
      else // в начале положительное значение
        begin
          Cur := List;
          while (Cur^.next <> nil) and (Cur^.next^.info > 0) do // ищем когда закончатся положительные
            Cur := Cur^.next;
          Cur^.next := CreateElem(info, Cur^.next);
          
        end;
    end;
end;
  
var
  List : PElem;
begin
  List := nil;
  Out(List);
  Add(List, 0);
  Out(List);
  Add(List, 0);
  Out(List);
  Add(List, 1);
  Out(List);
  Add(List, -1);
  Out(List);
  Add(List, -2);
  Out(List);
  Add(List, 2);
  Out(List);
end.