Расположить элементы массива в порядке убывания - QBasic

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

1)Помогите пожалуйста. Осуществите циклический сдвиг компонент заданного вектора A(N) влево на одну позицию, то есть получите вектор А = (a2 , a3 , ..., aN , a1 ). 2) расположить элементы массива в порядке убывания 2 мя способами, метод пузырька и метод линейной сортировки

Решение задачи: «Расположить элементы массива в порядке убывания»

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

DEFINT A, I, N
RANDOMIZE TIMER
CLS
INPUT "Vvedite N"; n
DIM a(1 TO n)
 
FOR i = 1 TO n
   a(i) = 21 * RND - 10.5
   PRINT USING "####"; a(i);
NEXT i
PRINT
 
FOR i = 1 TO n - 1
   SWAP a(i), a(i + 1)
NEXT i
 
FOR i = 1 TO n
   PRINT USING "####"; a(i);
NEXT i
END

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

Вот что делает этот код:

Запрашивает у пользователя число N (количество элементов в массиве).
Создает массив a размером 1..N.
Заполняет элементы массива случайными числами от -10.5 до 21.5.
Выводит на экран все элементы массива.
Начиная с первого элемента, меняет местами соседние элементы, пока не будет отсортирован в порядке убывания.
Выводит отсортированный массив на экран.