Вывести на экран элементы массива, стоящие на нечетных местах, вычислить их

program odd_places;
var a: array [1..10] of integer;
s: integer;
begin
s:=0;
writeln(Введите элементы массива);
for i:integer:=1 to 10 do read(a[i]);
writeln();
for i:integer:= 1 to 10 do write(a[i] : 5);
writeln();
for i:integer:= 1 to 10 do if i mod 2 = 1 then
begin
write(a[i] : 5);
s:= s + a[i]
end
else write(_____ ); // знаки подчеркивания поменять пятью пробелами
writeln();
writeln(Сумма частей на нечетных местах: , s)
end.