Даны натуральное число n и последовательность действительных чисел a1, a2,…,an. Найти количество элементов массива равных минимальному — QBasic(Бейсик)

INPUT n
DIM a(n)
FOR i = 1 TO n
    INPUT a(i)
NEXT
min = a(1)
FOR i = 2 TO n
    IF a(i) < min THEN min = a(i)
NEXT i
k = 0
FOR i = 1 TO n
    IF a(i) = min THEN k = k + 1
NEXT i
PRINT "kolvo elementov massiva ravnih minimalnomu="; k