Определить, имеется ли в массиве хотя бы одно нечетное отрицательное число - Free Pascal

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

дано натуральное число N и массив целых чисел а₁, ... , а_n . выяснить имеется ли в массиве а₁, ... , а_n хотя бы одно не четное отрицательное число и определить его местонахождение в массиве.

Решение задачи: «Определить, имеется ли в массиве хотя бы одно нечетное отрицательное число»

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

var
  n, i: Integer;
  a: array [1..100] of integer; 
begin
  Randomize;
  Write('N= '); Read(n);
  WriteLn('Массив:');
  for i:=1 to N do begin
    a[i]:=random(10)-10; Write(' ',a[i]);
  end; WriteLn;
  for i:=1 to N do
    if a[i] mod 2 = -1 then
      WriteLn('Число: ', a[i], ' ; Индекс: ', i);
end.

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

Объявляются переменные n, i типа Integer, а также массив a типа array [1..100] of Integer.
Используется функция Randomize для инициализации генератора случайных чисел.
Выводится запрос на ввод числа N.
Число N считывается с помощью функции Read.
В цикле от 1 до N выполняется: 5.1. Элементу массива a[i] присваивается случайное число от -10 до 10 с шагом 2 (random(10)-10). 5.2. Элемент массива выводится на экран с помощью функции Write, а перед ним выводится пробел.
Выводится завершающий символ новой строки с помощью функции WriteLn.
В цикле от 1 до N выполняется: 7.1. Проверяется, является ли i-й элемент массива нечетным отрицательным числом (a[i] mod 2 = -1). 7.2. Если условие выполняется, то выводится сообщение с числом и его индексом.
Программа завершается.