Дан массив натуральных чисел. Найти сумму элементов, кратных данному K — Pascal(Паскаль)

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