В массиве А (10) удалить все четные элементы, стоящие на нечетных местах

Var

i, n:integer;

a:array of integer;

begin

SetLength (a, 10);

write ('Исходный массив: ');

for i:=0 to 9 do

begin

a[i]:=random (10);

write (a[i],' ');

end;

writeln;

write ('Преобразованный массив: ');

for i:=0 to 9 do

begin

if not ((i mod 2=0) and (a[i] mod 2=0)) then

begin

a[n]:=a[i];

n:=n+1;

end;

end;

SetLength (a, n);

for i:=0 to n-1 do

write (a[i],' ');

end.