3 type IArr is Array (Natural range <>) of Integer;
4 type CArr is Array (Natural range <>) of Character;
6 type Var_R (D1 : Boolean; D2 : Boolean) is record
10 M1, M2 : CArr (1..16);
16 type R (D1 : Boolean; D2 : Boolean) is record
17 Field : Var_R (D1, D2);
20 procedure Proc (From : in R; To : out R);