Интересная Олимпиадная Задача - QBasic

DECLARE SUB printArr ()
DECLARE FUNCTION check% ()
DATA 7, 1, 4, 5, 9, 6, 7, 8, 3, 2, 10
DIM SHARED n AS LONG
n = 11
DIM SHARED aArr(1 TO n) AS LONG
DIM SHARED bArr(1 TO n) AS INTEGER
 
 
DIM a(1 TO n) AS LONG, i AS LONG, k AS LONG, p  AS LONG, j AS LONG
 
FOR i = 1 TO n: READ aArr(i): NEXT i
   
CLS
PRINT "Array:": CALL printArr
PRINT "New array:"
IF check = 1 THEN CALL printArr: END
 
FOR k = 1 TO n - 1
    REDIM a(1 TO k) AS LONG
    p = k
    FOR i = 1 TO k: a(i) = i: NEXT i
    DO
        j = j + 1
        REDIM bArr(1 TO n) AS INTEGER
        FOR i = 1 TO k: bArr(a(i)) = 1: NEXT i
        IF check = 1 THEN
        CALL printArr
        PRINT "kol-vo combyn:"; j
        END
        END IF
        
        IF p = 0 THEN EXIT DO
        FOR i = k TO p STEP -1
        a(i) = a(p) + i - p + 1
        NEXT i
        IF a(k) = n THEN p = p - 1 ELSE p = k
    LOOP
NEXT k
 
FUNCTION check%
    DIM i AS LONG, maxArr AS LONG
    FOR i = 1 TO n
    IF bArr(i) = 0 THEN
        IF aArr(i) > maxArr THEN maxArr = aArr(i) ELSE EXIT FUNCTION
    END IF
    NEXT i
    check = 1
END FUNCTION
 
SUB printArr
    DIM i AS LONG
    FOR i = 1 TO n
    IF bArr(i) = 0 THEN PRINT aArr(i);
    NEXT i
    PRINT
END SUB