Есть массив, проверить, является ли он перестановкой - QBasic

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

Проблема! Есть массив, проверить, является ли он перестановкой.Не работае программа при вводе одинаковых чисел(((( Подскажите, как узнать, есть ли одинаковые элементы?

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

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

CLS
RANDOMIZE TIMER
n = 10
DIM a(n)
 
FOR i = 1 TO n
   a(i) = FIX(90 * RND)
   PRINT a(i);
NEXT
PRINT : PRINT
 
FOR i = 1 TO n
   k = 0
   FOR j = 1 TO n
   IF a(i) = a(j) THEN k = k + 1
   IF k > 1 THEN PRINT "NO": END
NEXT j, i
 
PRINT "YES"
END

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

CLS — очистка экрана
RANDOMIZE TIMER — установка генератора случайных чисел
n = 10 — размер массива
DIM a(n) — создание массива a размером n
FOR i = 1 TO n — цикл по индексам массива a
a(i) = FIX(90 * RND) — заполнение массива a случайными числами от 0 до 90
PRINT a(i); — печать значения элемента массива a
NEXT — переход к следующему элементу массива
PRINT : PRINT — печать двух знаков :, для разделения вывода
FOR i = 1 TO n — цикл по индексам массива a
k = 0 — инициализация переменной k для подсчета повторяющихся элементов
FOR j = 1 TO n — цикл по индексам массива a
IF a(i) = a(j) THEN k = k + 1 — увеличение переменной k, если текущий элемент массива a(i) равен любому другому элементу массива a(j)
IF k > 1 THEN PRINTNO: END — печать NO, если количество повторяющихся элементов больше 1
NEXT j, i — переход к следующим элементам массива a
PRINTYES` — печатьYES`, если все элементы массива уникальны
END — завершение программы