Что не правильно в решении задачи на массивы? Переправьте на верное решение

в массиве найти кол-во чисел попавших в интервал [A,B]

k=0
dim c(10)
randomize timer
input a,b
for i=1 to 10
c(i)=- fix(rnd*(b-a)+a)
print c(i)
next i
for i=1 to 10
if c(i) >=a and c(i)<=b then k=k+1
next i
print k
end

что не правильно сделано?
у меня в принте 0 все время выводит

в массиве C(10) найти кол-во чисел попавших в интервал [A,B]