В одномерном массиве из 10 чисел посчитать количество всех элементов, кратных 7 и сумму остальных элементов

const n=10; Var a: array[1..10] of  integer;       i: integer;        s,k: real; Begin k:=0; s:=0; For i:=1 to n do      begin        write ('Числа = '); readln (a[i]);        if a[i] mod 7 = 0  then s:=s+1 else k:=a[i]+k;      end;    writeln('Кол-во элементов кратных 7 = ',s);   writeln('Сумма остальных= ',k); End.