Одномерные массивы. дан массив натуральных чисел, состоящий из n элементов. найти сумму элементов массива, кратных данному числу к. (паскаль)

Const  n = 10;
var  a :array [1..n] of integer;  k, sum :integer;
begin
  readln(k);  for i:= 1 to n do    readln(a[i]);  sum:= 0;  for i:= 1 to n do    if a[i] mod k = 0 then      sum:= sum +a[i];  writeln(sum);
end.