Дан целочисленный массив из a(n) отсортировать по убыванию элементы массива с нечетными номерами методом выбора- QBasic(Бейсик)

INPUT "vvedite kolichestvo elementov N ", n
DIM a(n)
FOR i = 1 TO n
INPUT "vvedite element ", a(i)
NEXT
PRINT "ishodnyj massiv"
FOR i = 1 TO n
PRINT a(i);
NEXT
PRINT
FOR i = 1 TO n - 1 STEP 2
max = a(i): k = i
FOR j = i + 2 TO n STEP 2
IF a(j) > max THEN max = a(j): k = j
NEXT
SWAP a(i), a(k)
NEXT
PRINT "novyj massiv"
FOR i = 1 TO n
PRINT a(i);
NEXT