Дан массив а, содержащий 35 элементов. найти сумму и количество элементов, которые кратны 5. , буду .

Program p1;
var a:array[1..35] of integer;
      i,k,s:integer;
begin
randomize;
for i:=1 to 35 do a[i]:=random(10)+1;
writeln('Массив:');
for i:=1 to 35 do writeln('a[',i,']=',a[i]);
s:=0;
k:=0;
for i:=1 to 35 do
begin
if(a[i] mod 5)=0 then
begin
s:=s+a[i];
k:=k+1;
end;
end;
writeln('Сумма:',s);
writeln('Количество:',k);
end.