package Sorted_List is
   type List_Type is private;


  procedure Insert(List_Ptr : in out List_Type; Tal : in integer);
  procedure Insert_First(List_Ptr : in out List_Type; Tal : in integer);
  procedure Put(List_Ptr : in List_Type);
  function Member(List_Ptr : in List_Type; Soktal: in Integer) return Boolean;
  function Find(List_Ptr : in List_Type; Soktal : in Integer) return Integer;
  Procedure Find(List_Ptr : in List_Type; Soktal : in Integer; Result : out Integer);
  procedure Remove(List_ptr : in out List_Type; Soktal : in Integer);
  procedure Delete(List_Ptr : in out List_Type);
  function Length(List_Ptr : in List_Type; Counter : in Integer) return Integer;

  Find_Error : exception;
private

   type Node_Type;
   type List_Type is access Node_Type;
   type Node_Type is
    record
       Heltal : Integer;
       Next : List_Type;
    end record;
end Sorted_List;