Дан массив из 15 элементов,заполненный случайными числами, найти сумму элементов стоящих на нечётных местах

Var
a: array [1..1000] of integer;
i,j,n,k:integer;
begin
k:=0;
write ('количество чисел');
read(n);
for i:=1 to n do
begin
a[i]:=random(100);
if (i mod 2)=1 then
k:=k+a[i];
end;
for i:=1 to n do
writeln (a[i]);
write (k);
end.