Упорядочить одномерный массив, заданный датчиком случайных чисел, по возрастанию - QBasic

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

Упорядочить одномерный массив, заданный датчиком случайных чисел, по возрастанию(размерность массива произвольна)

Решение задачи: «Упорядочить одномерный массив, заданный датчиком случайных чисел, по возрастанию»

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

CLS
RANDOMIZE TIMER
INPUT "vvedite n"; n
DIM a(n)
FOR i = 1 TO n
    a(i) = INT(RND * 10)
NEXT
FOR i = 1 TO n
    PRINT a(i);
NEXT
FOR i = 1 TO n: FOR j = 2 TO n
        IF a(j) < a(j - 1) THEN SWAP a(j), a(j - 1)
NEXT: NEXT
PRINT
FOR i = 1 TO n
    PRINT a(i);
NEXT

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

Установка начального значения таймера.
Ввод числа n (размер массива).
Создание массива a размером n.
Заполнение массива a случайными целыми числами от 0 до 10.
Вывод на экран всех элементов массива a.
Сортировка массива a по возрастанию.
Вывод на экран отсортированного массива a.