Определение индекса элемента одномерного массива, который равен 25

FUNCTION GetIndex(A() AS INTEGER)AS INTEGER
    FOR i =0 TO Length
        IF a(i) = 25 THEN
            GetIndex = i
            EXIT FUNCTION
        END IF
    NEXT
    GetIndex = -1
END FUNCTION

INPUT"Введите количество элементов", n
DIM a(n)
FOR i=1 TO n
IF a(i)=25 THEN k=i
NEXT
PRINT k

BegProg:
RANDOMIZE (TIMER)
DO
  CLS
  PRINT " Задание:  Написать программу для определения индекса элемента одномерного"
  PRINT "массива, который равен 25.": PRINT
  PRINT "Введите количество элементов массива в интервале от 1 до 250 -> "; : INPUT "", n
LOOP WHILE n < 1 OR n > 250
CLS : PRINT "Исходный массив:": PRINT
REDIM a(1 TO n) AS INTEGER
FOR i = 1 TO n
    a(i) = RND * 100: PRINT USING "####"; a(i);
NEXT i: PRINT : PRINT
CountSet = 0
PRINT "Индексы элементов, равных 25: "
    FOR i = 1 TO n
        IF a(i) = 25 THEN
           PRINT USING "####"; i;
           CountSet = CountSet + 1
        END IF
    NEXT: PRINT
IF CountSet < 1 THEN
   PRINT "Отсутствуют"
ELSE
   PRINT : PRINT "Всего индексов "; CountSet
END IF: : PRINT
PRINT "<Esc> - Выход, <Enter> - Повторить программу ... ";
DO
  ch$ = INKEY$
  IF ch$ = CHR$(13) THEN GOTO BegProg
LOOP UNTIL ch$ = CHR$(27)
END