Дан массив из 10 элементов.найти количество элементов массива до первого элемента равного 111- QBasic(Бейсик)

CLS
n=10
DIM a(n)
FOR i=1 TO n
 PRINT "a(";i;")=";
 INPUT a(i)
NEXT i
PRINT "Massiv"
FOR i=1 TO n
 PRINT a(i);
NEXT i
PRINT
k=0
FOR i=1 TO n
 IF a(i)=111 THEN EXIT FOR
 k=k+1
NEXT i
IF k= n THEN
 PRINT "V massive net elementa=111"
ELSE
 PRINT "Do pervogo elementa=111 kolvo elementov=";k
END IF