Вычислить сумму и количество четных чисел в массиве

CLS
DO
 INPUT "Введите размерность массива: ", m
LOOP UNTIL m > 0            
PRINT "Исходный массив:"
'Определяем массив
DIM ms(1 TO m) AS INTEGER, s AS INTEGER, k AS INTEGER
s = 0: k = 0
RANDOMIZE (TIMER): PRINT
FOR i = 1 TO m
 'Задаем массив генератором случайных чисел
 ms(i) = SGN(RND - .35) * INT(RND + .92) * RND * 250
 PRINT USING "#######"; ms(i);       'выводим массив на экран
 IF i MOD 10 = 0 THEN PRINT          'по 10 элементов в строке
 IF (ms(i) MOD 2) = 0 THEN           'определяем четность элемента
    s = s + ms(i)                    'суммируем, если четный
    k = k + 1                        'считаем, если четный
 END IF
NEXT i: PRINT
PRINT "В массиве четных чисел = "; k
PRINT "Их сумма = "; s: PRINT
INPUT "Введите число, которое нужно заменить A= ", A
INPUT "Введите число, которым нужно заменить B= ", B
k = 0
PRINT : PRINT "Результирующий массив:": PRINT
FOR i = 1 TO m
    IF ms(i) = A THEN
       ms(i) = B                      'заменяем, если есть что менять
       k = k + 1                      'считаем, если заменили
    END IF
    PRINT USING "#######"; ms(i);     'выводим на экран результат
    IF i MOD 10 = 0 THEN PRINT
NEXT i: PRINT
PRINT "Заменено элементов: "; k