Дан массив из 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.