Удалить все четные элементы, стоящие на нечетных местах

    n,i,j,k:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(20)+1;
  write(a[i],' ');
 end;
writeln;
writeln;
i:=n;
while i>=1 do
if (a[i] mod 2=0)and odd(i) then
 begin
  for j:=i to n-1 do
  a[j]:=a[j+1];
  n:=n-1;
  i:=i-1;
 end
else i:=i-1;
writeln('Массив после: ');
for i:=1 to n do
write(a[i],' ');
readln
end.

Uses
 CRT;
Var
 a:array[1..100] of integer;
 i,n,j:integer;
begin
clrscr;
randomize;
repeat
 write('Ðàçìåð ìàññèâà n=');
 readln(n);
until n in [1..100];
writeln('Èñõîäíûé ìàññèâ:');
for i:=1 to n do
 begin
  a[i]:=random(10)-3;
  write(a[i],' ');
 end;
writeln;
for i:=(n div 2+n mod 2) downto 1 do
if a[i*2-1] mod 2=0 then
begin
 for j:=i*2-1 to n-1 do
  a[j]:=a[j+1];
  n:=n-1;
end;
writeln;
for i:=1 to n do
  write(a[i],' ');
end.