В одномерном массиве вывести на экран чётные и нечётные по значению элементы - Turbo Pascal (247961)

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

В одномерном массиве вывести на экран чётные и нечётные по значению элементы.

  uses Crt;
const N = 10;
var A: array [1..N] of integer;
           i: integer;
begin
ClrScr;
writeln(' Введённый массив: ');
  for i:= 1 to N do begin
    A[i]:= Random(50) – 5;
       write(A[i]:3);
   end;
        writeln;
writeln(' Массив с чётными по значению эл-ми:');
   for i:= 1 to N do begin
if  (A[i] mod 2 <> 0) then A[i]:= 0;
     write(A[i]:3);
      end;
      writeln;
writeln(' Массив с нечётными по значению эл-ми:');
   for i:= 1 to N do begin
if (A[i] mod 2 = 0) then A[i]:= 0;
    write(A[i]:3);
     end;
    writeln;
    readln
end.

На выходе имеем:

Введённый массив:
-5  -4   38     5     8   28   10     3   13   16
Иассив с чётными по значению эл-ми:
 0  -4   38     0     8   28   10     0     0   16
Массив с нечётными по значению эл-ми:
 0    0     0     0     0     0     0     0     0     0

Почему же массив с нечётными по значению элементами выдаёт нули? Если программы по отдельности на чётные и нечётные, то всё в порядке. А вот объединить их в одну программу так и не получилось. У вас получится?

Решение задачи: «В одномерном массиве вывести на экран чётные и нечётные по значению элементы»

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

writeln(' Массив с нечётными по значению эл-ми:');
for i:= 1 to N do 
if (A[i] mod 2<>0) then  write(A[i]:3);

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

Объявление и инициализация массива A
Вывод на экран заголовка цикла
Условие цикла for, которое выполняет проверку на нечетность элемента массива A
Вывод на экран значения элемента массива A, если условие выполняется
Завершение цикла for