Составьте программу которая заполняет массив a [1..10] случайными целыми числами в диапазоне 1 до 10 и вычисляет среднее арифметическое элементов массива с четными значениями?

Var a:array[1..10] of integer;
s,k,i:integer;
sr:real;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(10);
write(a[i]:2); end;

for i:=1 to 10 do
if not odd(a[i]) then begin
s:=s+a[i]; inc(k);
end;
sr:=s/k;
writeln;
writeln('Сред.арифм. четных элементов: ',sr);
end.