Сортировка по убыванию элементов одномерного массива А (N) не принадлежащих отрезку - QBasic

Формулировка задачи:

                    Листинг программы
                
 
                        
                          
                    
Print "kol-vo elementov"
input n
input "nachalo otrezka";o
input "konec otrezka";p
if p<o then swap p<o
dim a(n),b(n)
print "vvedite elementi"
for i = 1 to n
input a(i)
next i
for i = 1 to n
if a(i)>=p or a(i)<=o then m=m+1:b(m)=a(i)
next i
print
for i = 1 to m-1
if b(i)<b(i+1) then swap b(i),b(i+1)
next i
print "novyi massiv"
for i = 1 to m
print b(i)
next i

Задача:Составьте программу упорядочения по убыванию элементов одномерного массива А(N) не принадлежащих отрезку (O,R) если у меня допустим 6 елементов и отрезок от 3 до 7 я ввожу цифры:1,2,4,5,8,9 и он их распологает 2,8,9,1 а это не правильно!!Нужно по убыванию.Помогите пожалуйста

Решение задачи: «Сортировка по убыванию элементов одномерного массива А (N) не принадлежащих отрезку»

Листинг программы

PRINT "kol-vo elementov"
INPUT n
INPUT "nachalo otrezka"; o
INPUT "konec otrezka"; r
IF r < o THEN SWAP r, o
DIM a(n), b(n)
PRINT "vvedite elementi"
FOR i = 1 TO n
INPUT a(i)
NEXT i
PRINT "ishodnyj massiv"
FOR i = 1 TO n
PRINT a(i);
NEXT i
PRINT
FOR i = 1 TO n
IF a(i) <= o OR a(i) >= r THEN m = m + 1: b(m) = a(i)
NEXT
FOR i = 1 TO m
FOR j = 2 TO m
IF b(j) > b(j - 1) THEN SWAP b(j), b(j - 1)
NEXT
NEXT
PRINT "novyi massiv"
FOR i = 1 TO m
PRINT b(i);
NEXT

Объяснение кода листинга программы

Сначала программа запрашивает количество элементов массива (n) и два отрезка (o и r), между которыми элементы нужно отсортировать по убыванию.
Затем программа запрашивает сами элементы массива (в цикле от 1 до n) и сохраняет их в массиве a.
Далее программа выводит исходный массив на экран.
Следующий шаг - перенос элементов, удовлетворяющих условию (находящихся между o и r), в массив b.
Затем начинается сортировка массива b по убыванию (от большего к меньшему).
Наконец, программа выводит отсортированный массив b на экран.