Дан одномерный массив разномерностью в К элементов Найти количество нечетных элементов массива, напечатать на экране номера всех отрицательных элементов массива — QBasic(Бейсик)

INPUT "vvedite kol-vo elementov ", k
DIM a(k)
FOR i = 1 TO k
    INPUT "vvedite element ", a(i)
NEXT
PRINT "massiv"
FOR i = 1 TO k
    PRINT a(i);
NEXT
PRINT
PRINT "nomera otricatelnyh elementov:"
FOR i = 1 TO k
    IF a(i) < 0 THEN PRINT i;
    IF a(i) MOD 2 <> 0 THEN kol = kol + 1
NEXT
PRINT
PRINT "kolichestvo nechetnyh elementov="; kol