1package Aggr21_Pkg is
2
3   type Rec is record
4      A : Integer;
5      S : String (1 .. 120);
6      N : Natural;
7   end record;
8
9   procedure Init (R : out Rec);
10
11end Aggr21_Pkg;
12