Дан массив из 20 действительных чисел, определить среднее арифметическое элементов с четными индаксами и среднее арифметическое с нечетными индаксами

Var a: array [1..20] of integer; i,s1,s2:integer;

Begin

For i:=1 to 20 do begin

                              Writeln('введите элемент ',i); read(a[i]);

                               If i mod 2=0 then s1:=s1+a[i] else

                                                           s2:=s2+a[i];

                         end;

Writeln('Среднее ариф. четных ',s1/20,'; А нечетных ',s2/20);

readln;

end.

Ну как всегда: вопросы - в личку)