дан целочисленный массив на 10 элементов.Найти количество и сумму элементов кратных k

Спасибо:)

var a:array[1..10] of integer;i,k,s,r:integer;beginfor i:=1 to 10 do readln(A[i]);writeln('Введите число k');readln(k);s:=0;r:=0;for i:=1 to 10 do  if (A[i]modk=0) then begin r:=r+1; s:=A[i]+s;end;writeln(s,r);end.