Если сумма всех элементов массива чётная, нужно вывести количество нечётных - Pascal ABC

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

Дан целочисленный массив А из 20 целых случайных чисел от 10 до 90. Если сумма всех элементов массива чётная, нужно вывести количество нечётных ( по значению ) элементов массива, если нечётная - количество чётных. Например, для массива из 6 элементов, равных соответственно 2, 6, 12, 17, 3, 8, ответом будет 2 - количество нечётных элементов, так как общая сумма всех элементов чётна.

Решение задачи: «Если сумма всех элементов массива чётная, нужно вывести количество нечётных»

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

program by_XYCAK;
 
var
  a: array[1..20] of integer;
  i, sum, ammountOfOdd, amountOfEven: integer ;
 
begin
  sum := 0;
  ammountOfOdd := 0;
  amountOfEven := 0;
  randomize;
  for i := 1 to 20 do 
  begin
    a[i] := random(80) + 10; // Создаем массив рандомных чисел 10 < a[i] < 90
    write(a[i], '; ');
  end;
  for i := 1 to 20 do 
  // Подсчет количества четных и нечетных элементов массива
    if a[i] mod 2 = 0 then  
      amountOfEven := amountOfEven + 1
    else 
      ammountOfOdd := ammountOfOdd + 1;
  for i := 1 to 20 do 
    sum := sum + a[i]; 
  if sum mod 2 = 0 then // Проверка суммы на четность/нечетность 
    writeln('Количество нечетных элементов = ', ammountOfOdd)
  else writeln('Количество четных элементов массива = ',amountOfEven);
end.

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

Создается переменная a типа array[1..20] of integer, которая представляет собой массив из 20 целых чисел.
Задаются три переменные: sum, ammountOfOdd и amountOfEven. Переменная sum будет использоваться для хранения суммы всех элементов массива, переменная ammountOfOdd - для подсчета количества нечетных элементов, а переменная amountOfEven - для подсчета количества четных элементов.
С помощью функции randomize производится инициализация генератора случайных чисел.
Запускается цикл for, который выполняется 20 раз. В каждой итерации цикла создается случайное число от 10 до 90 и присваивается переменной a[i]. Затем это число выводится на экран с помощью функции write.
После завершения первой части цикла запускается вложенный цикл for, который проверяет каждый элемент массива на четность или нечетность с помощью оператора %. Если элемент четный, то переменная amountOfEven увеличивается на единицу, а если нечетный - то переменная ammountOfOdd увеличивается на единицу.
По завершении вложенного цикла for выполняется еще один внешний цикл for, который снова проверяет сумму всех элементов массива на четность с помощью оператора %. Если сумма четная, то выводится сообщение о количестве нечетных элементов, а если нечетная - выводится сообщение о количестве четных элементов.