qBasic! Одномерный массив

[Xanoder]

ПОМОГИТЕ!!!!!ПОЖАЛУЙСТА!!!!!!ОЧЕНЬ-ОЧЕНЬ НАДО!!!!!!!!!!!!!

ЗАДАНИЕ: В одномерном массиве элементы, значения которых кратно заданному числу поставить в начало массива в порядке возрастания значений
1.создать меню выбора способа задания исходного массива (ручным или автоматическим способом);
2.размер массива должен вводится с клавиатуры, использовать комментарии;
3.элементами массива должны быть целые числа из диапазона [-100;100];
4.на экран должен быть выведен исходный и преобразованный массив, а так же другие необходимые для пояснения преобразований данные.


CLS
INPUT "Введи размер массива"; n
INPUT "Введи число "; k
DIM a(n)

30 INPUT "Выберите тип ввода: 1-ручной, 2-автоматический " ;p

SELECT CASE p
CASE 1
GOTO 10
CASE 2
GOTO 20
CASE ELSE
GOTO 30
END CASE

10 PRINT "Ручной ввод"
FOR i = 1 TO n
PRINT "Число"; i
INPUT a(i)
NEXT
GOTO 50

20 PRINT "Автоматический ввод"
RANDOMIZE TIMER
FOR i=1 TO n
a(i)=int(rnd*200-100)+1
PRINT a(i);
NEXT
GOTO 60

50 PRINT "Массив"
FOR i = 1 TO n
PRINT a(i);
NEXT

60 FOR i = 1 TO n
IF a(i) MOD k = 0 THEN c = c + 1: SWAP a(i), a(c)
NEXT
FOR i = 1 TO c
FOR j = 1 TO c
IF a(j) < a(j - 1) THEN SWAP a(j), a(j - 1)
NEXT
NEXT
PRINT
PRINT "Новый массив"
FOR i = 1 TO n
PRINT a(i);
NEXT
END

программа выводит не совсем то что от неё требуется((( не могу понять в чём проблема

[Z1000000]

Сортировку сам делай

60
c = 1
FOR i = 1 TO n
IF a(i) MOD k = 0 THEN
 IF c <> i THEN SWAP a(i), a(c): c = c + 1
END IF
NEXT i