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

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"