В массив A[N] занесены натуральные числа. Найти сумму тех элементов, которые кратны данному К — Pascal(Паскаль)

var a:array[1..10]of integer;
s,i,k:integer;
begin
s:=0;
  for i:=1 to 6 do
   readln(a[i]); 
  writeln('vvedite k');
 readln(k);
for i:=1 to 6 do
if (a[i] mod k)=0 then
s:=s+a[i];
write(s);
end.