Помогите плиз с этими задачами по Qbasic. Только в старом а не в Visual

пизжец кака сложная прога ))

PRINT "============== PROGRAM ARRAYS #2 (c) for Basic in 2010"
' n = 10
INPUT "Kol-vo elementov massiva, n: "; n
PRINT "Vvedite massiv ..."

FOR I = 1 TO n
PRINT "("; I; "): ";
INPUT A(I)
NEXT I

ci = 0
PRINT "Results:"
FOR I = 2 TO n - 1
IF (A(I) > A(I - 1) AND A(I) > A(I + 1)) THEN
ci = ci + 1
PRINT A(I)
END IF
NEXT I

PRINT "Kol-vo naydenix elementov: ", ci

======================= РЕЗУЛЬТАТ
============== PROGRAM ARRAYS #2 (c) for Basic in 2010
Kol-vo elementov massiva, n: ? 10
Vvedite massiv ...
( 1 ): ? 3
( 2 ): ? 5
( 3 ): ? 2
( 4 ): ? 1
( 5 ): ? 7
( 6 ): ? 5
( 7 ): ? 3
( 8 ): ? 7
( 9 ): ? 46
( 10 ): ? 4
Results:
5
7
46
Kol-vo naydenix elementov: 3

тут проще простого ...знал бы бейсик помог... .
пиши по алгоритму... .
объявляем массив A[m]
объявляем переменную счетчика count
делаем цикл for от второго элемента до количества элементов массива
ставим условие
если a[m] > a[m-1] and a[m]> a[m-1] выполнять
увеличение счетчика на 1 count = count + 1