Написать программку на языке Pascal для решения последующей задачки: Дан массив

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

function MatRead:array[,] of integer;
begin
  Writeln('Вводите элементы через пробел построчно');
  Result:=ReadMatrInteger(4,4)
end;

function PartCount(a:array[,] of integer):=
    a.ElementsWithIndexes.Where(t-gt;(t[0]=5) and t[1].IsOdd).Count;

begin
  var a:=MatRead;
  Writeln('*** Начальный массив ***');
  a.Println(6); Writeln(6*a.ColCount*'-');
  Writeln('Разыскиваемых частей: ',PartCount(a))
end.

Пример
Вводите элементы через пробел построчно
34 12 21 5 0 3 12 5 -6 18 5 16 5 -15 16 7
*** Исходный массив ***
    34    12    21     5
     0     3    12     5
    -6    18     5    16
     5   -15    16     7
------------------------
Искомых частей: 2