В массиве А (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.