package Sai.Editting is
   
   procedure Init;
   
   type Id_Name is access String;
   subtype Product_Id is Positive range 4 .. 9 ;
   
   
   procedure Del(Id : in Product_Id);
   procedure Add(Name : in String);
   function Name (Id : in Product_Id) return Id_Name;
   procedure Add_Edit(Path : in String; Name : in String; Price : in Price_Type);
   procedure Del_Edit(Path : in String;Id : in Product_Id);
   
   
   
private
   

   Names : array (0..15) of Id_Name;
end Sai.Editting;