Сортировка чётных и нечётных (TurboPascal)

[VladKB1]

Вам даётся массив, который нужно отсортировать следующим образом:
- отсортировать по неубыванию отдельно элементы, стоящие на чётных позициях;
- отсортировать по неубыванию отдельно элементы, стоящие на нечётных позициях.

Формат ввода: в первой строке содержится n, 0<n≤10 – количество элементов в массиве. В
последующих n строках содержатся элементы массива, по одному в строке.

Формат вывода: вам нужно вывести отсортированный массив так, чтобы в каждой строке
находилось ровно одно число.

Комментарий: в программе можно использовать не больше одного массива.

input.txt
5
10
9
-1
5
3
output.txt
-1
5
3
9
10

Решать пытался, но не как не получалось

Задачу решил! Большое спасибо BDA!

var
 n,i,j,x: longint;
 a: array [0..10] of longint;
begin
 assign(input,'input.txt');
 reset(input);
 assign(output,'output.txt');
 rewrite(output);

 read(n);
 for i:=1 to n do read(a[i]);

 for i:=1 to n-1 do
 for j:=i+1 to n do
 if (odd(i) = odd(j)) and (a[i] > a[j]) then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
 for i:=1 to n do writeln(a[i]);
end.

[Bugrimov]

Выкладывайте попытки...

[BDA]

for i := 1 to n - 1 do
  for j := i + 1 to n do
    if (odd(i) = odd(j)) and (a[i] > a[j]) then
    begin
      //обменять a[i] и a[j]
    end;

[Bugrimov]

BDA спасибо

[VladKB1]

Сообщение от BDA

for i := 1 to n - 1 do
  for j := i + 1 to n do
    if (odd(i) = odd(j)) and (a[i] > a[j]) then
    begin
      //обменять a[i] и a[j]
    end;

Трёхкратное спасибо!