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

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

Дан массив целых чисел. Найти количество пар соседних элементов, в которых одно число четное, другое отрицательное. Вот что получилось. Подскажите, что не так

program gulim;
Type Mas = Array [1..20] of integer; 
var A:mas;
    i,N,k, K2:integer;
begin
write('введите число N: ');
readln(N);
k:=0;
for i:=1 to N do
 begin
  write('A [ ', i, ' ] = ');
  readln(A[i]);
  end;
for i := 1 to N-1 do
if A[i]<0 and A[i+1]) mod 2 =0 then inc(k);
if k>0 then
writeln('Количество пар соседних элементов с разными знаками: ', k)
else
writeln('Массив не содержит элементов с разными знаками')
 end.

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

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

type
  Mas = Array [1..20] of integer;
var
  A: mas;
  i, N, k, K2: integer;
 
begin
  write('введите число N: ');
  readln(N);
  k := 0;
  for i := 1 to N do
  begin
    write('A [ ', i, ' ] = ');
    readln(A[i]);
  end;
  for i := 1 to N - 1 do
    if ((A[i] < 0) and (A[i + 1] mod 2 = 0)) or ((a[i] mod 2 = 0) and (a[i + 1] < 0)) then 
    begin
      inc(k);
    end;
  if k > 0 then
    writeln('Количество пар соседних элементов с разными знаками: ', k)
  else
    writeln('Массив не содержит элементов с разными знаками')
end.

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

В данном коде объявлен тип данных Mas, который представляет собой массив из 20 целых чисел. Далее, объявлены переменные A, i, N, k и K2, которые будут использоваться для работы с массивом. С помощью цикла for происходит чтение элементов массива A. Каждый элемент считывается с помощью функции readln и сохраняется в соответствующую переменную A[i]. Затем, используется еще один цикл for, который проходит по всем элементам массива A, кроме последнего. Внутри этого цикла проверяется условие: если текущий элемент A[i] меньше нуля и его следующий элемент A[i+1] является четным числом или наоборот, то текущий элемент A[i] является нечетным числом. В этом случае, переменная k увеличивается на единицу. После завершения внутреннего цикла, проверяется значение переменной k. Если k больше нуля, то выводится сообщение о количестве пар соседних элементов с разными знаками. В противном случае, выводится сообщение о том, что массив не содержит элементов с разными знаками. Таким образом, данный код позволяет найти количество пар соседних элементов массива с разными знаками.