Найти максимальный элемент среди четных элементов и максимальный среди нечетных элементов массива - Pascal ABC

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

помоги решить задачу все перепоробывала запускается но не выдает числа а показывает все время ноль 1. В целочисленном массиве Х(N) найти max1 – максимальный элемент среди четных элементов массива и max2 – максимальный элемент среди нечетных элементов массива.

Program task1;
const n=20;
var a:array[1..n] of integer; max1,max2,i:integer;
begin
for i:= 1 to n do
begin
writeln('ГўГўГҐГ¤ГЁГІГҐ',-i,' -Г»Г© ГЅГ«ГҐГ¬ГҐГ*ГІ Г¬Г*Г±Г±ГЁГўГ*');
read(a[i]);
end;
for i:=1 to n do
if max1=a[i] mod 2 then
max1:=0;
if max2=a[i] mod 2 then
max2:=1;
writeln('Г¬Г*ГЄГ±ГЁГ¬ ГЅГ« Г±Г°ГҐГ¤ГЁ Г·ГҐГІГ* Г·ГЁГ±ГҐГ«=',max1)
writeln('Г¬Г*ГЄГ±ГЁГ¬ ГЅГ« Г±Г°ГҐГ¤ГЁ Г*ГҐГ·ГҐГІ Г·ГЁГ±ГҐГ«=',max2);
end.

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

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

Program task1;
const
  n=20;
var
  a:array[1..n] of integer;
  max1,max2,i:integer;
  nc,nk:integer;
 
begin
  nc:=0;
  nk:=0;
 
  for i:= 1 to n do
    begin
      write('Введите ',i,'-й элемент массива: ');
      readln(a[i]);
    end;
 
  for i:= 1 to n do
    if not odd(a[i]) then
      begin
        max1:=a[i]; // первый четный
        inc(nc);
        break;
      end;
 
  for i:= 1 to n do
    if odd(a[i]) then
      begin
        max2:=a[i]; // первый нечетный
        inc(nk);
        break;
      end;
 
  for i:=1 to n do
    begin
      if (a[i] mod 2 = 0) and (a[i]>max1) then
        max1:=a[i];
      if (a[i] mod 2 <> 0) and (a[i]>max2) then
        max2:=a[i];
    end;
  if nc=0 then
    writeln('Нет четных элементов.')
  else
    writeln('Максимальный элемент среди четных элементов массива: ',max1);
  if nk=0 then
    writeln('Нет нечетных элементов.')
  else
  writeln('Максимальный элемент среди нечетных элементов массива: ',max2);
  readln;
end.

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

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

Ввод и сохранение элементов массива a с помощью цикла for и операций ввода-вывода.
Инициализация переменных max1, max2, i, nc, nk, которые будут использоваться в дальнейших операциях.
Поиск первого четного элемента массива a путем проверки каждого элемента на четность с помощью функции odd и оператора break. Значение найденного четного элемента присваивается переменной max1, а переменная nc увеличивается на единицу.
Поиск первого нечетного элемента массива a путем проверки каждого элемента на четность с помощью функции odd и оператора break. Значение найденного нечетного элемента присваивается переменной max2, а переменная nk увеличивается на единицу.
Проверка каждого элемента массива a на соответствие условиям: четность и больше max1, нечетность и больше max2. Если элемент соответствует условиям, то значение max1 или max2 обновляется.
Вывод максимального значения среди четных элементов массива a с помощью цикла if и оператора writeln.
Вывод максимального значения среди нечетных элементов массива a с помощью цикла if и оператора writeln.
Проверка значений переменных nc и nk на равенство нулю. Если значение равно нулю, то выводится сообщение об отсутствии четных или нечетных элементов массива.
Завершение работы программы с помощью оператора readln.