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

Помогите решить! упорядочить массив натуральных чисел по возрастанию последней цифры элемента

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

for i=1 to n
for j=2 to n
if a(j) mod 10<a(j-1) mod 10 then swap a(j),a(j-1)
next
next

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

В данном коде реализована сортировка массива натуральных чисел по возрастанию последней цифры элемента. Список действий:

for i=1 to n - выполняет цикл от 1 до n (обычно n - количество элементов в массиве).
for j=2 to n - выполняет цикл от 2 до n (исключая 1-й элемент массива, так как он уже будет отсортирован).
if a(j) mod 10 < a(j-1) mod 10 then swap a(j),a(j-1) - сравнивает последние цифры элементов массива a(j) и a(j-1). Если первая цифра больше второй, то происходит обмен элементов.
next - завершает цикл. Таким образом, после выполнения кода, массив будет отсортирован по возрастанию последней цифры элемента.