Вывести на экран элементы массива, стоящие на нечетных местах, вычислить их сумму (в массиве 10 элементов, вводим их с клавиатуры.)

Var x:array[1..10] of integer;
i,n,s:integer;
begin s:=0;
for i:=1 to n do
read(x[i]);
for i:=1 to n do
if x[i] mod2=1 then s:=s+x[i];
writeln('s=,s);
readln;
readln
end.
Думаю так будет.