Массивы, программа Опции

[LehaGrishin]

В одномерном массиве X i (i = 1…5) найти количество элементов с нечетными индексами, оформить в виде процедуры. В основной программе организовать ввод и вывод массива, и вывод количества.
Помогите, пожалуйста

[LehaGrishin]

uses crt;
var a:array[1..5] of integer;
i:integer;
k:integer;

begin
clrscr;
k := (Length(a) DIV 2) + (Length(a) MOD 2);
writeln(k);
end
end.