Сортировка по неубыванию Опции

[Tribunal]

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

var
   mas:array [1..20] of integer;
   i,n,k:byte;

function GetMin (i1,i2:integer):integer;
var
   j,min,jmin:integer;
begin
   min:=mas[i1];
   jmin:=i1;
   for j:=i1+1 to i2 do
    if mas[j]<min then begin
                       min:=mas[j];
                       jmin:=j;
                       end;
   GetMin:=jmin;
end;

procedure change (i1,i2:integer);
var
   i,t:integer;
begin
   for i:=1 to n do
    begin
      t:=mas[i1];
      mas[i1]:=mas[i2];
      mas[i2]:=t;
    end;
end;

begin
  writeln('::: Sortirovka  po neubivaniyu metodom vibora :::');
  write('Vvedite kol-vo elementov v massive ');read(n);
  writeln('Ishodniy massiv:');
  randomize;
  for i:=1 to n do
   begin
    mas[i]:=random(10)-10;
    write(mas[i],' ');
   end;
  writeln;

  for i:=1 to n-1 do
   begin
     k:=GetMin(i,n);
     if (k<>i) and ((mas[k] mod 2)<>0) then
      change(k,i);
  end;

  writeln('Otsortirovanniy massiv:');
  for i:=1 to n do
   write(mas[i],' ');
 end.

[Tribunal]

логично)...
спасибо...