Напечатать числа из массива, которые образуют растущую последовательность

Имеется массив А из N произвольных чисел А(N), среди которых есть положительные, отрицательные и равные нулю. Напечатать числа из массива, которые образуют растущую последовательность. Например, если А={2,4,–3,4,2,–2,5}, результат: 2,4 и –3, 4 и –2, 5.

INPUT "vvedite N ", n
DIM a(n + 1)
RANDOMIZE TIMER
FOR i = 1 TO n
a(i) = INT(RND * 20) - 10
NEXT
PRINT "massiv"
FOR i = 1 TO n
PRINT a(i);
NEXT
PRINT
FOR i = 1 TO n
IF a(i) < a(i + 1) THEN PRINT a(i); : f = 1 ELSE IF f = 1 THEN PRINT a(i): f = 0 ELSE f = 0
NEXT

автор: кот Бегемот