Дан одномерный массив целых чисел. Определить количество элементов, отличных от последнего элемента -QBasic(Бейсик)

cls 
input "kolichestvo massiva"; m
dim a(m)
for i =1 to m
? "vvedite znachenie massiva"; i
input a(i)
next i
for i = 1 to m
if a(i)<>a(m) then ? a(i);
next