TYPE TOpenIntArray = REF ARRAY OF INTEGER;
VAR openArray: TOpenIntArray;