Дан массив из N элементов. Составить программу , сортирующую по возрастанию все числа с нечётными индексами в массиве.

var   a: array [1..100] of integer;   i,j,n,k: integer; begin   readln(n);   for i:= 1 to n do readln(a[i]);   for i:= 1 to n do if Odd(i) then     for j:= 1 to n-i do if Odd(j) then       if a[j]>a[j+2] then begin         k:= a[j];         a[j]:= a[j+2];         a[j+2]:= k       end;   for i:= 1 to n do write(a[i],' ') end.