Вывести на экран значения тех элементов массива, которые делятся на 2 - Turbo Pascal

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

Приветствую всех. Прошу помощи в решении задачи. Ибо получается у меня какая-то чушь. Требуется написать программу решения приведенной ниже задачи: "Задан массив целых чисел из n элементов(n=2000). Вывести на экран значения тех его элементов, которые делятся на 2." Заранее спасибо!

Решение задачи: «Вывести на экран значения тех элементов массива, которые делятся на 2»

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

var A:array[1..100] of integer;
    n,i:integer;
begin
randomize;
write('Razmer masiva n=');
readln(n);
writeln('Random massive:');
for i:=1 to n do
 begin
  A[i]:= Random (100);
  write (A[i]:4);
 end;
Writeln;
for i:=1 to n do
if A[i] mod 2=0 then write (A[i]:4);
Readln;
end.

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

Создаётся переменная A типа array[1..100] of integer, которая представляет собой массив целых чисел размером 100.
Задаётся переменная n, которая будет использоваться для ограничения размера выводимого массива.
Задаётся переменная i, которая будет использоваться для итерации по элементам массива A.
Выводится сообщение «Razmer masiva n=» и считывается значение переменной n.
Выводится сообщение «Random massive:» и начинается цикл for, который будет выполняться n раз.
Внутри цикла переменная i инициализируется значением 1.
Для каждого значения i в диапазоне от 1 до n выполняется следующая последовательность действий:
- A[i] присваивается случайное число от 0 до 99 с помощью функции Random (100).
- Выводится значение A[i] с помощью функции write (A[i]:4).
- Выводится символ новой строки с помощью функции Writeln.
После завершения внутреннего цикла выводится символ новой строки с помощью функции Writeln.
Завершается внешний цикл for.
Выводится символ новой строки с помощью функции Writeln.
Считывается символ новой строки с помощью функции readln.
Код завершается.