-- Global variables part 1 type TacticsArray is array(1 .. 2) of Integer; type ExpectArray is array(1 .. 2) of Payoff; type OppSpecsRec is record Name : PlayerNameType; Tactics : TacticsArray; Expect : ExpectArray; MatchNum : Integer; end record; type MoveArray is range 0..(2**32-1); type MoveList is array(1 .. 2,0 .. 31) of MoveArray; type MoveSpecsRec is record Name : PlayerNameType; List : MoveList; end record;