удаление чётного элемента из массива Опции

[Новичок]

Здравствуйте, помогите разобраться в одном моменте.
В массиве удалить чётный элемент. Программа работает когда ввожу все чётные элементы, как только заполняю массив всеми нечётными - выходит сообщение об ошибке.
Вот ниже приведено основное решение в программе

for i:=1 to n do
if a[i]mod 2=0 then m:=i;
for i:=m to n-1 do
a[i]:=a[i+1];
for i:=1 to n-1 do
writeln ('новый массив',a[i]);
end.

заранее спасибо