1: type 2: OT = integer; 3: T = record 4: a, b : integer; 5: end; 6: 7: var v : integer; 8: 9: procedure Blah ; external;