-- Chapter 23 - Program 10
with Ada.Strings.Bounded;

package Person is

   type EMPLOYEE is abstract tagged private;

   procedure Display(Person_In : EMPLOYEE) is abstract;
   
   package My_Strings is new 
                      Ada.Strings.Bounded.Generic_Bounded_Length(25);
   use My_Strings;

private

   type EMPLOYEE is abstract tagged
      record
         Name        : BOUNDED_STRING;
         Salary      : INTEGER;
      end record;

end Person;



-- Result of execution
--
-- (This package cannot be executed alone.)