Дан массив состоящий...

Дан массив состоящий из 20 целых чисел. Требуется найти среднее арифметическое его нечетныхэлементов?

 

Uses crt;
const n=20;
var i,average,count:integer;
a:array[1..n] of integer;
begin
randomize;
writeln('Введите элементы массива:');
for i:=1 to n do
begin
read(a);
if i mod 2<>0 then
begin
average:=average+a;
inc(count);
end;
end;
writeln(average DIV count);
end.