Одномерный целочисленный массив. Определить и показать все нечётные значения массива, а потом все чётные - Pascal ABC

Формулировка задачи:

Дан одномерный челочисленный масив А размерностью 16.Определить и показать все нечётные значения массива, а потом все чётные.Все первоначальные элементы массива вводятся с клавиатуры.

Решение задачи: «Одномерный целочисленный массив. Определить и показать все нечётные значения массива, а потом все чётные»

Листинг программы

var a:array[1..16] of integer;
    i:integer;
   begin
   WriteLn('Введите элементы массива:');
   for i:=1 to 16 do begin
     Read(a[i]);
   end;
     Write('Нечетные элементы:  ');
     for i:=1 to 16 do begin
        if a[i] mod 2 = 1 then
        write(a[i], ' ');
     end;
     WriteLn();
     Write('Четные элементы:  ');
     for i:=1 to 16 do begin
        if a[i] mod 2 = 0 then
        write(a[i], ' ');
     end;
end.

Объяснение кода листинга программы

Объявляется целочисленный массив a размером 16 элементов.
В цикле от 1 до 16 пользователю предлагается ввести элемент массива.
Затем выводятся все нечетные элементы массива.
Выводится сообщение Четные элементы:.
Затем выводятся все четные элементы массива.