В числовой последовательности из N произвольных целых чисел определить количество пар соседних элементов, сумма модулей которых равна модулю заданного числа М.
Спасибо)

//В числовой последовательности из N произвольных целых чисел определить количество пар соседних элементов, //сумма модулей которых равна модулю заданного числа М.function CountPair(N, m: integer; a: array of integer): integer;begin result := 0; Assert(N >= 0); for var i := 0 to a.Length - 2 do begin if abs(a[i]) + abs(a[i+1]) = abs(m) then result += 1; end;end;begin var n := ReadInteger; var m := ReadInteger; var a: array of integer; Setlength(a, n); for var j := 0 to a.Length - 1 do begin a[j] := ReadInteger; end; Write('Количество пар = ', CountPair(n, m, a));end.