Из вектора С сформировать вектор А, содержащий четные элементы вектора С - Turbo Pascal

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

Всем здравствуйте, у меня возникла проблема с решением задачи связанной с вектором, хочу просить помощи специалистов, условия задачи следующие: Из вектора С(n) сформировать вектор А, содержащий четные элементы вектора С и вектор В, содержащий нечетные элементы. Заранее благодарен.

Решение задачи: «Из вектора С сформировать вектор А, содержащий четные элементы вектора С»

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

uses crt;
var a,b,c: array [1..100] of integer;
    n,i,j,k: integer;
begin
randomize;
write('n=');
readln(n);
j:=1; k:=1;
writeln('C');
for i:=1 to n do
    begin
    c[i]:=random(19)-9;
    write(c[i]:4);
    if abs(c[i]) mod 2=1 then
       begin
       b[k]:=c[i];
       inc(k);
       end;
    if abs(c[i]) mod 2=0 then
       begin
       a[j]:=c[i];
       inc(j);
       end;
    end;
writeln;
writeln('A');
for i:=1 to j-1 do
    write(a[i]:4);
writeln;
writeln('B');
for i:=1 to k-1 do
    write(b[i]:4);
readkey
end.

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

Создается переменная a типа array [1..100] of integer.
Создается переменная b типа array [1..100] of integer.
Создается переменная c типа array [1..100] of integer.
Создается переменная n типа integer.
Выполняется инициализация генератора случайных чисел с помощью функции randomize.
Выводится запрос на ввод значения переменной n.
Инициализируются переменные j и k со значениями 1.
Выводится сообщение C.
Запускается цикл for, который выполняется n раз.
Внутри цикла вызывается функция random(19)-9 для генерации случайного числа в диапазоне от 0 до 18.
Полученное случайное число присваивается переменной c[i].
Выводится значение c[i] с помощью функции write(c[i]:4).
Проверяется остаток от деления значения c[i] на 2.
Если остаток от деления равен 1, то значение c[i] присваивается переменной b[k].
Инкрементируется значение переменной k.
Если остаток от деления равен 0, то значение c[i] присваивается переменной a[j].
Инкрементируется значение переменной j.
После завершения цикла for выводится сообщение A.
Выводится значение a[i] для каждого i от 1 до j-1.
Выводится сообщение B.
Выводится значение b[i] для каждого i от 1 до k-1.
Выполняется запрос на ввод символа для выхода из программы.