Найти кол-во элементов массива, кратных 7. Массив ввести с клавиатуры — Pascal(Паскаль)

var
a:array[1..100] of integer;
i.k:integer;
.................................................
k:=0;
for i:=1 to n do
if a[i] mod 7=0 then k:=k+1;