with Pack8_Pkg;

package Pack8 is

   subtype Index_Type is Integer range 1 .. Pack8_Pkg.N;

   subtype Str is String( Index_Type);

   subtype Str2 is String (1 .. 11);

   type Rec is record
      S1 : Str;
      S2 : Str;
      B  : Boolean;
      S3 : Str2;
   end record;
   pragma Pack (Rec);

end Pack8;