Дан массив N(10), содержащий только числа от 0 до 2 и нужно их при печати упорядочить по убыванию- QBasic(Бейсик)

DIM a(10)
FOR i = 1 TO 10
    a(i) = INT(RND * 3)
NEXT
PRINT "ishodnyj massiv"
FOR i = 1 TO 10
    PRINT a(i); " ";
NEXT
PRINT
FOR i = 1 TO 10
    FOR j = 2 TO 10
        IF a(j) > a(j - 1) THEN SWAP a(j), a(j - 1)
    NEXT
NEXT
PRINT "otsortirovannyj massiv"
FOR i = 1 TO 10
    PRINT a(i); " ";
NEXT