Определить, является ли заданный массив упорядоченным по возрастанию или убыванию — QBasic(Бейсик)

INPUT "vvedite razmer massiva"; n
DIM a(n)
FOR i = 1 TO n
    INPUT "vvedite element"; a(i)
NEXT
FOR i = 2 TO n
    IF a(i) > a(i - 1) THEN k = k + 1
    IF a(i) < a(i - 1) THEN m = m + 1
NEXT
IF k = n - 1 THEN PRINT "vozrastaet" ELSE IF m = n - 1 THEN PRINT "ubyvaet" ELSE PRINT "ne uporyadochen"