Задан массив. Создать два массива в одном из которых находятся элементы менее среднего арифметического элементов исходного массива а в другом более среднего- QBasic(Бейсик)

input "Введите кол-во элементов в массиве ",n
dim a(n),b(n),c(n)
for  i=1 to n
input "Введите элемент массива ",a(i)
next 
for i=1 to n
s=s+a(i)
next 
f=s/n
for i=1 to n
if a(i)>f then k=k+1:b(k)=a(i) else m=m+1:c(m)=a(i)
next
print"massiv bolee srednego"
for i=1 to k
print b(i);
next
print
print"massiv menee srednego"
for i=1 to m
print c(i);
next