Вводится массив из n чисел (число n задается с клавиатуры). Упорядочить элементы массива в порядке возрастания (убывания) — QBasic(Бейсик)

CLS
Vv: INPUT "Vvedite kol-vo elementov(n): ", n
IF n < 1 THEN PRINT "Vvedite zanovo, n < 1 nedopustimo...": GOTO Vv
DIM M(n)
FOR i = 1 TO n
    PRINT "Chislo №:"; i;: INPUT M(i)
NEXT
PRINT "Vozrastaniye:"
FOR u = n - 1 TO 1 STEP -1
    FOR i = 1 TO u
        IF M(i) > M(i + 1) THEN SWAP M(i), M(i + 1)
    NEXT
NEXT
FOR i = 1 TO n
    PRINT M(i);
NEXT: PRINT
PRINT "Ubivaniye:"
FOR u = n - 1 TO 1 STEP -1
    FOR i = 1 TO u
        IF M(i) < M(i + 1) THEN SWAP M(i), M(i + 1)
    NEXT
NEXT
FOR i = 1 TO n
    PRINT M(i);
NEXT: PRINT