Сортировка выбором нечетных элементов массива

{сортировка выбором нечетных по убываниюпо возрастанию}
uses crt;
const nmax=100;
var a:array [1..nmax]of integer;
    n,i,j,ip,nmin,buf:integer;
Begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
writeln;
writeln;
ip:=0;{найдем первый нечетный элемент, если он есть}
for i:=n downto 1 do{идем с конца, тогда последний и будет первый}
if odd(a[i]) then ip:=i;
if ip=0 then write('Нечетных элементов нет!')
else
 begin
  i:=ip;{встаем в первый нечетный}
  while i<=n-1 do{пока не предпоследний}
  if odd(a[i]) then{если нечетный}
   begin
    nmin:=i;{запомним индекс}
    for j:=i+1 to n do{смотрим впереди}
    if odd(a[j])and(a[j]>a[nmin]) then nmin:=j;{если есть нечетное больше этого}
    buf:=a[i];
    a[i]:=a[nmin];{обмениваем их местами}
    a[nmin]:=buf;
    i:=i+1;{идем вперед}
   end
  else i:=i+1;{четные пропускаем}
  writeln('Упорядоченный массив: ');
  for i:=1 to n do
  write(a[i]:4);
 end;
readln;
end.