Вывод четных и нечетных чисел в массив Опции

[kissliatinka]

Парни! Помогите девушке разобраться с массивами...

Дан целочисленный массив размера N. Вывести вначале все содержащиеся в данном массиве четные числа в порядке возрастания их индексов, а затем - все нечетные числа в порядке убывания их индексов.

Заранее благодарю..

[volvo]

Извращенный вариант:

const
  n = 10;
  arr: array[1 .. n] of integer =
    (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
var
  b: boolean;
  i: integer;

begin
  i := 2;
  for b := false to true do begin
    dec(i);
    while (i >= 1) and (i <= n) do begin

      if odd(arr[i]) = b then writeln(arr[i]);
      if b then dec(i) else inc(i)

    end;
  end;
end.