Наименьшая нечетная сумма двух соседних элементов массива - PascalABC.NET

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

Привет, ребят. Ну, оооочень нужна помощь. Уезжаю. Не будет интернета и пк. Помогите. Также посмотрите другие мои темы, если будет время! Дан массив, содержащий 70 неотрицательных целых чисел. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести наименьшую нечётную сумму двух соседних элементов массива. Гарантируется, что в массиве есть соседние элементы с нечётной суммой. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.

 const N=70;
var
 a: array [1..N] of integer;
 i, j, x, y: integer;
begin
for i:=1 to N do
readln(a[i]);
//…
end.

Заранее благодарю. Без "Спасибо Вас не оставлю"! P.S. Уважаемая администрация, не удаляйте мои темы из-за их похожести

Решение задачи: «Наименьшая нечетная сумма двух соседних элементов массива»

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

CONST
  N = 70;
VAR
  a: Array [1..N] of integer;
  i,j,x,y: integer;
BEGIN
  For i := 1 to N do
    Readln(a[i]);
 
  For i := 1 to (N-1) do
    If ((a[i] + a[i+1]) mod 2 = 1) then
      If (x = 0)or(x > a[i] + a[i+1]) then
        x := a[i] + a[i+1];
        
  Write(x);
END.

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

Объявляется константа N = 70, которая определяет размер массива.
Создается массив a размером от 1 до N для хранения чисел.
Инициализируются переменные i, j, x, y, которые будут использоваться в цикле.
Заполняется массив a с помощью цикла For i := 1 to N do Readln(a[i]);.
Вычисляется нечетная сумма двух соседних элементов массива с помощью цикла For i := 1 to (N-1) do If ((a[i] + a[i+1]) mod 2 = 1) then.
Если это первая итерация или x больше суммы текущего и следующего элементов, то обновляется значение x.
Выводится значение x с помощью Write(x).
Код повторяется до тех пор, пока не будут проверены все пары соседних элементов массива.