Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Дан целочисленный массив а(10), заполненный датчиком случайных чисел. Найти максимальный элемент массива среди четных элементов.

program Task_Max4;

  {Дан целочисленный массив а(10), заполненный датчиком случайных чисел.
  Найти максимальный элемент массива среди четных элементов.}
const
  n = 10;
var
  a: array[1..n] of integer;
  i_MaxNum, i, i_Temp: integer;
begin
  Randomize();
  i_MaxNum := not (MAXINT);
  i_Temp := 0;
  for i := 1 to n do
  begin
    a[i] := Random(20) + 1;
    Writeln('i: ', i, ', значение ', a[i]);
    i_Temp := a[i] mod 2;
    if i_Temp = 0 then
    begin
      if i_MaxNum < a[i] then
      begin
        i_MaxNum := a[i];
      end;
    end;
  end;

  //Вывод на экран
  Writeln('Максимальный элемент массива среди четных элементов: ', i_MaxNum);
  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:

Дан целочисленный массив а(10), заполненный датчиком случайных чисел. Найти максимальный элемент массива среди четных элементов.

Дополнительные материалы:
Найти минимальный элемент массива, паскаль.
Найти минимум и максимум в массиве — Pascal (Паскаль).
Найти минимальное число в массиве, паскаль.
Минимальное значение, которое может иметь число типа Integer в Паскале.
Найти минимальный элемент массива и его порядковый номер. Паскаль (Pascal).
Минимальный элемент массива, что это?