В массиве удалить все положительные элементы, имеющие четный порядковый номер

Program lab;
Uses crt;
type arr=array[1..15] of integer;
var a:arr; {массив}
i,j,n:byte; {индексы, длина массива}
i_max:byte; {индекс максимального элемента массива}
max:integer; {аксимальный элемент}
begin
writeln('Удалить все положительные элементы, расположенные справа от минимального');
writeln;
{$R+} {Включение контроля значений индексов}
clrscr; {очистка экрана}
n:=15;
randomize;
writeln('Исходный массив: ');
for i:=1 to n do {генерация элементов массива}
begin
a[i]:=-20+random(41); {в диапозоне [-20;20]}
write (a [i]:4);
end;
writeln;
max:=a[1];
i_max:=1;
for i:=2 to n do
if a[i]<max then
begin
max:=a[i];
i_max:=i;
end;
i:=i_max;
while i<=n do {цикл для проверки элементов на знак}
begin
if a[i]<0 then {если элемент отрицательный, то}
begin
for j:=i to n-1 do {цикл удаления i-го элемента}
a[j]:=a[j+1];
n:=n-1; {уменьшение длины массива}
end
else
i:=i+1; {иначе переход к следующему элементу}
end;
writeln('Результат обработки:');
for i:=1 to n do
write(a [i]: 4);
readln;
{$R-} {Выключение контроля значений индексов}
end.