Помогите пожалуйста!  Найти сумму элементов массива, имеющих нечетное значение

Вместо 10 подставляешь число элементов массива var a:array[1..10] of integer; sum,i:integer; begin Writeln('Zadayte massiv'); for i:=1 to 10 do readln(a[i]); sum:=0; for i:=1 to 10 do if i mod 2 <>0 then sum:=sum+a[i]; writeln('Summa = ',sum); end.

program picaso; uses crt; type vector=array[1..100] of integer; var a:vector;     i,n,s:integer; begin clrscr;     writeln('n :');readln(n);     for i:=1 to n do     begin         write('значение ',i,' : ');         readln(a[i]);     end;     s:=0;     for i:=1 to n do         if i mod 2 <>0 then s:=s+a[i];          writeln('сумму элементов массива, имеющих нечетное значение: ',s);          readln; end.