Отсортировать с функцией простого выбора элементы массива, стоящие на нечетных местах.

Program Sort;
 uses crt;
const nmax=100;
Var A : array[1..nmax] of integer;
n,i,j,p : integer;
Begin
{Определение размера массива A (N) и его заполнение} 
randomize;
repeat
write('Размер массива до',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(50)+1;
  write(a[i]:4);
 end;
{сортировка данных} 
for i:=1 to n do 
for j:=1 to n-i do 
if A[j]>A[j+1] then 
begin {Обмен элементов} 
p:=A[j]; 
A[j]:=A[j+1]; 
A[j+1]:=P; 
end; 
 
{Вывод отсортированного массива A} 
writeln;
writeln('Сортировка элементов стоящих на нечетных местах:');
for i:=1 to n do
write(A[i]:4);
readln;
End.

{сортировка данных} 
for i:=1 to n do 
for j:=1 to n-i do 
if A[j]>A[j+1] then 
begin {Обмен элементов} 
p:=A[j]; 
A[j]:=A[j+1]; 
A[j+1]:=P; 
end;

const
  nmax=100;
type
  Tarr=array[1..nmax] of integer;
var
  a:Tarr;
  i,j,t,n:integer;
begin
  randomize;
  repeat
    write('Razmer massiva, ne bolee ',nmax,': ');
    readln(n);
  until n in [1..nmax];
  writeln('Ishodniy massiv:');
  for i:=1 to n do
    begin
      a[i]:=random(50);
      write(a[i]:4);
    end;
  writeln;
  i:=1;
  while i<=n-2 do
    begin
      j:=i+2;
      while j<=n do
        begin
          if a[i]>a[j] then
            begin
              t:=a[i];
              a[i]:=a[j];
              a[j]:=t;
            end;
          inc(j,2);
        end;
      inc(i,2);
    end;
  writeln('Poluchenniy massiv:');
  for i:=1 to n do
    write(a[i]:4);
  writeln;
end.

  (*Во внешнем цикле осуществляем проход по элементам с первого нечетного индекса до предпоследнего
  нечетного. Во внутреннем берем элементы так же с нечетными индексами стоящие за выбранным во внешнем цикле 
  элементе до последнего с нечетным индексом и сравниваем их для выбора минимального элемента. Найденный 
  минимум ставим на место первого элемента с нечетным индексом, отсекаем его из рассмотрения и 
  ищем минимум из уже оставшейся части элементов с нечетными индексами.*)
  i:=1;{начинаем с элемента с первым нечетным индексом}
  while i<=n-2 do{во внешнем цикле идем до элемента с предпоследним нечетным индексом}
    begin
      j:=i+2;{во внутреннем цикле начинаем с элемента имеющего след. нечетный индекс от рассматриваемого во внешнем}
      while j<=n do{идем до элемента с последним нечетным индексом}
        begin
          if a[i]>a[j] then{сравниваем элемент из внешнего цикла со всеми элементами с нечетными индексами стоящими за ним}
            begin
              t:=a[i];{если какой-то из них оказался меньше}
              a[i]:=a[j];{обмениваем их значения}
              a[j]:=t;
            end;
          inc(j,2);{длина шага 2 для перебора только нечетных индексов}
          {таким образом при выходе из внутреннего цикла}
          {в значении элемента a[i] фиксируется минимальный элемент}
          {из элементов с нечетными индексами от i до n}
        end;
      inc(i,2);{длина шага 2 для перебора только нечетных индексов}
    end;