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

constn=10;Var a: array[1..10] of  integer;      i: integer;        s,k: real;Begink:=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.