Найти максимальный чётный и минимальный нечётный элементы массива - Pascal

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

Задан массив A(n), заполненный случайными числами из диапазона [-12;20]. Найти максимальный чётный и минимальный нечётный элементы массива. Буду очень благодарен за решение. Если можно, решение на уровне студента первого курса, ото не поверят)) Пишем в программе Delphi7 (может это важно).

Решение задачи: «Найти максимальный чётный и минимальный нечётный элементы массива»

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

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var a:array[1..100] of integer;
    n,i,min,max:integer;
begin
write('Razmer nassiva n=');
readln(n);
randomize;
writeln('Massiv');
for i:=1 to n do
 begin
  a[i]:=-12+random(33);
  write(a[i]:4);
 end;
writeln;
max:=1;
min:=2;
for i:=1 to n do
if a[i] mod 2=0 then
 begin
  if max=1 then max:=a[i]
  else if a[i]>max then max:=a[i];
 end
else
 begin
  if min=2 then min:=a[i]
  else if a[i]<min then min:=a[i];
 end;
if max=1 then writeln('Chetnyh net')
else writeln('Max chetnoe=',max);
if min=2 then writeln('Ne chetnyh net')
else writeln('Min ne chetnoe=',min);
readln
end.

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

Список действий в коде:

Ввод количества элементов в массив n.
Инициализация переменных: a[1..100] - массив, n, i, min, max - переменные.
Заполнение массива a случайными целыми числами от -12 до 33.
Вывод содержимого массива a.
Установка начального значения max = 1 и min = 2.
Проверка каждого элемента массива a на чётность.
Если элемент четный, то обновление значения max, если нечётный, то обновление значения min.
Вывод сообщения о наличии или отсутствии чётных или нечётных чисел.
Ввод для завершения работы программы.