Помогите решить задачку по програмируванию:Знайти суму 1-го ,3-го,5-го...19-го елементв

Const n=20; 
var a:array[1..n] of real;
i:integer; s:real;
begin
writeln('Начальный массив:');
for i:=1 to n do
 begin
 a[i]:=10*random;
 write(a[i]:5:1);
 end;
writeln;
s:=0; 
for i:=1 to n do
 if i mod 2 lt;gt; 0 then s:=s+a[i];
writeln('S = ',s:5:2)
end.
Пример (для 10 чисел):
Начальный массив:
  1.0  2.2  7.2  8.4  8.6  7.5  3.9  0.3  6.8  5.2
S = 27.63