Дан одномерный массив вещественного типа состоящий из n элементов.Найти в массиве третий считая слева направо,элемент,имеющий заданное значение x — QBasic(Бейсик)

INPUT " vvedite kol-vo elementov ", n
DIM a(n)
FOR i = 1 TO n
    INPUT "vvedite element ", a(i)
NEXT
INPUT "vvedite chislo", x
FOR i = 1 TO n
    IF a(i) = x THEN k = k + 1: IF k = 3 THEN PRINT "nomer elementa="; i
NEXT
IF k < 3 THEN PRINT "net takogo elementa"