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