Известны среднемесячные температуры за год. Вывести список месяцев, в которых средняя температура была выше 7 градусов. Список месяцев расположить в порядке убывания их среднемесячных температур- QBasic(Бейсик)

CLS
n = 12
DIM a(n), b(n)
FOR i = 1 TO n
    PRINT "vvedite element"; i
    INPUT a(i)
    b(i) = a(i)
NEXT
CLS
PRINT "srednjaja temperatura za god"
FOR i = 1 TO n
    PRINT a(i);
NEXT
FOR i = 1 TO n
    FOR j = 2 TO n
        IF a(j) > a(j - 1) THEN SWAP a(j), a(j - 1)
    NEXT
NEXT
PRINT "mesjacy v porjadke umenshenija srednej temperatury"
FOR i = 1 TO n
    FOR j = 1 TO n
        IF a(i) = b(j) AND a(i) > 7 AND a(i) <> a(i - 1) THEN PRINT j;
    NEXT
NEXT