динамические переменные - Pascal - Ответ 719721

procedure AddFirst(var h: TList; el: integer);
  var
    z: TList;
  begin
    new(z);
    z^.info := el;
    z^.next := h
  end;
 
 /////////////////////////////////////////////////////////////////////////////
 
 procedure AddAfter(p: TList; el: integer;);
  var
    z: TList;
   begin
    new(z);
    z^.info := el;
    z^.next := p^.next;
    p^.next := z
   end;
 
 procedure Insert(var h: TList; el: integer);
  var p, t: TList;
  begin
    if h = nil then
     AddFirst(h,el)
     else
      if el<h^.inf then AddFirst(h, el)
       else
        begin
          p := h;
          t := h^.next;
          while (t<>nil) and (rl<t^.info) do
           begin
             p := t;
             t := t^.next
           end;
          AddAfter(p,el)
        end;
  end;