1package body Aggr21_Pkg is 2 3 procedure Init (R : out Rec) is 4 begin 5 R := (A => 5, S => <>, N => 7); 6 end; 7 8end Aggr21_Pkg; 9