Паскаль!!! Дан массив из 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.   Ну как всегда: вопросы - в личку)