Помогите решить. Pascal.

фото качество УГ.
написал вот такое, должно работать.

var a:array[-10000..10000] of integer;
i,N:integer;
begin
writeln('Сколько элементов? ');
read(N);
writeln('Введите элементы массива');
for i:=0 to N do readln(a);
for i:=0 to N do if (i mod 2=0) then writeln(a);
end.