record A, B : Integer; end record