Куда вставить проверку на чётность?

[ElektrikMaximka]

Условие: Сортировка по возрастанию элементов массива, абсолютные значения которых являются нечетными, при этом остальные элементы не должны перемещаться.
Теперь думаю, как вставить проверку чётности.
Только начинаю чтото понимать - сильно не пинайте )
ПаскальАБЦ.нет
Код пока такой ...

[Serge_Bliznykov]

так, например:

 for k:=n downto 2 do
  begin
   if Not odd(a[k]) then begin
     m:=1;
     for i:=2 to k do
       if (a[i]>a[m]) and (Not odd(a[i])) then m:=i;
     x:=a[m];
     a[m]:=a[k];
     a[k]:=x;
   end;
  end;

и ещё, я рекомендовал Вам перед тем, как поменять элементы местами, проверять, что это не один и тот же элемент. Согласитесь, глупо менять местами 1-й и 1-й элемент, или 3-й и 3-й... )
для этого достаточно написать так:

for k:=n downto 2 do
  begin
   if Not odd(a[k]) then begin
     m:=1;
     for i:=2 to k do
       if (a[i]>a[m]) and (Not odd(a[i])) then m:=i;
     if m<>k then begin
       x:=a[m];
       a[m]:=a[k];
       a[k]:=x;
     end;
   end;
  end;

[ElektrikMaximka]

Serge_Bliznykov - спасибо вам!!!
Я добавил проверку на чётность и при запуске компиляции появляется ошибка: "операция and не применима к типам integer и boolean"
В чём ошибка? Заранне спасибо!

[Stilet]

и при запуске компиляции появляется ошибка

Код с ошибкой в студию.

[ElektrikMaximka]

program SortViborom;
uses CRT;
var
v :real;
a: array [1..100] of integer;
i,n,k,x,m :integer;
begin
 writeln('Программа нахождения нечётных чисел в массиве');
 writeln('и сортировки их по возрастанию методом простого выбора');
 writeln('-----------------------------------------------------------------------');
 writeln;
 write('Введите кол-во элементов массива - ');
 read(n);
 writeln;
 writeln('Для ручного ввода элементов массива нажмите  "1"');
 writeln('Для их автоматического генерирования нажмите "2"');
 writeln;
 read(v);
 if v=1 then writeln ('Вы выбрали ручной ввод, введите значения элементов массива ...');
 if v=2 then writeln ('Вы выбрали автоматическое генерирование ...');
 writeln;
 if v=1 then
  for i:=1 to n do 
  begin
   write(i,'-й элемент = ');
   readln (a[i]);
  end;
 if v=2 then 
  for i:=1 to n do
   begin
    a[i]:= random (999);
    writeln (i,'-й элемент = ',a[i]);
   end;
  writeln;
  writeln('Отсортированный массив :');
  writeln;
 begin
  for k:=n downto 2 do
   begin
    if Not odd(a[k]) then begin
     m:=1;
     for i:=2 to k do 
      if a[i]>a[m] and (Not odd(a[i])) then m:=i; //в этой строке ошибка
      if m<>k then begin
       x:=a[m];
       a[m]:=a[k];
       a[k]:=x;
      end;
    end;
  end;
 end;
 for i:=1 to n do writeln(i,'-й элемент = ', a[i]);
 writeln;
end.

[Stilet]

if (a[i]>a[m]) and (Not odd(a[i])) then m:=i; //в этой строке ошибка