Отсортировать массив по четным элементам ,методом пузырька!

[Babur4iK]

uses crt;
 
const n=10;
 
var
x:array [1..n] of integer;
k,j,buf,c,c1:integer;
 
begin
clrscr;
   writeln('DO: ');
   randomize;
   for k:= 1 to n do
 begin

 readln(x[k]);
end;
 
begin
  for k:= n-1 downto 1  do
    for j:= 1 to k  do
    begin
    if not odd(x[k])and not odd(x[j]) and (x[j]>x[j+1]) then
  begin
      buf:=x[j];
      x[j]:=x[j+1];
      x[j+1]:=buf;
  end; end;
 
  writeln;
    writeln('Posle: ');
      for k:= 1 to n do
         write(x[k]:3);
      end;
    readkey;
  end.

Проблема:сортирует не так, как надо: еслли ввсети 10 9 8 7 6 5 4 3 2 1,то отсортирует 9 7 5 3 1 2 4 6 8 10,а надо чтоб сортировал 2 9 4 7 6 5 8 3 2 1

помогите пожалуйста

[Ol'ga_new]

Четные по возрастанию нечетные по убыванию?

[Babur4iK]

нет надо чтоб нечетные оставались на своем месте,вот так например:

2 9 4 7 6 5 8 3 2 1

[Ol'ga_new]

А если изначально ввести 4 7 6 2 3 9 7 1 8 5, то результат какой?

[Babur4iK]

4 7 2 3 6 9 7 1 5 8

[Stranger333]

А если изначально ввести 4 7 6 2 3 9 7 1 8 5, то результат какой?

4 7 2 3 6 9 7 1 5 8

может вы имели ввиду 2 7 4 3 6 9 8 7 1 5?

[Babur4iK]

нет,именно так)

[Stranger333]

тогда я не понимаю что вы здесь отсортируете???
4 7 2 3 6 9 7 1 5 8 - здесь непонятная сортировка, ни по чентным ни по не четным не будет сортировки. Напишите пару примеров что вам нужно сделать!

[Babur4iK]

вводим 10 9 8 7 6 5 4 3 2 1 , результат 2 9 4 7 6 5 8 3 10 1


надо чтоб ,нечетные элементы оставались на месте,сортироваться должны только четные элементы

[Stranger333]

ну можна сделать что бы четные элементы занеслись в другой массив и там сделать сортировку, потом добавлять в загальной массив четное и не четное число.