Помогите пожалуйста, решить задачку на тему "Массивы". Задать одномерный массив с

// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ReadArrInteger('Вводите:',ReadInteger('n='));
  var k:=a.Pairwise.Where(x-gt;(x[0] mod 10=2) or (x[1] mod 10=2)).Count;
  Writeln('Количество разыскиваемых пар равно ',k)
end.

Пример
n= 10
Вводите: 35 113 42 18 13 72 52 37 10 14
Количество разыскиваемых пар одинаково 5