Найти среднее арифметическое частей массива кратных 5.Паскаль.

Var a:array[1..1000] of integer;
k,s:integer; sr:real;
begin
write('Введите количество частей массива n='); readln(n);
for i:=1 to n do read(a[i]);
writeln;
k:=0; s:=0;
for i:=1 to n do
if a[i] mod 5 = 0 then begin
s:=s+a[i]; k:=k+1; end;
sr:=s/k;
writeln('Среднее арифметическое частей массива кратных 5 = ',sr);
end.