Определить (для всех одномерных массивов) среднее значение и процент элементов больше среднего — QBasic(Бейсик)

CLS
INPUT "vvedite razmer massiva"; n
DIM a(n)
FOR i = 1 TO n
    PRINT "vvedite element "; i
    INPUT a(i)
NEXT
FOR i = 1 TO n
    sr = sr + a(i)
NEXT
sr = sr / n
FOR i = 1 TO n
    IF a(i) > sr THEN k = k + 1
NEXT
x = (k * 100) / n
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT
PRINT "srednee znachenie ="; sr
PRINT "procentov boshe srednego ="; x; "%"