type Rec is record A, B : Integer; end record;
