Создать одномерный массив из 15 элементов. Вычислить среднеарифметическое значение нечетных элементов с нечетными индексами — Pascal(Паскаль)

program mas_1;
const n=15;
var a:array[1..n] of integer;
    i,kolich,summa:integer;
    srednee:real;
begin
writeln('Vvedite massiv:');
for i:=1 to n do
read(a[i]);
summa:=0; kolich:=0;
for i:=1 to n do
if (a[i] mod 2=1) and (i mod 2=1) then
 begin
 summa:=summa+a[i];
 kolich:=kolich+1;
 end;
srednee:=summa/kolich;
writeln('summa=',summa);
writeln('kolichestvo nechetnih s nechetnimi indeksami=',kolich);
writeln('srednee arifmetich=',srednee);
end.