1package Pack9 is 2 3 type R1 is record 4 I : Integer; 5 C : Character; 6 end record; 7 8 type R2 is record 9 I1, I2 : Integer; 10 A : R1; 11 end record; 12 pragma Pack(R2); 13 14 type R2_Ptr is access all R2; 15 16 procedure Copy (X, Y : R2_Ptr); 17 18end Pack9; 19