Дан массив а (40), заполненный случайными числами в диапазоне от 0 до 1000. найти сумму элементов кратных заданному к.

Program Ok;
const n=40;
var
A:array[1..n] of integer;
sum,i,k:integer;
begin
randomize;
read(k);
sum:=0;
for i:=1 to n do
A[i]:=random(1000);
for i:=1 to n do
begin
if (A[i] mod k = 0) then 
sum:=sum+A[i];
end;
write('Сумма элементов массива кратных ', k, ' = ', sum);
end.