Дан массив из n четырехзначных натуральных чисел. Вывести на экран только

// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017

begin
  var a:=ReadArrInteger('Введите элементы массива-gt;',ReadInteger('Введите размер массива-gt;'));
  a.Where(t-gt;((t div 1000)+(t div 100 mod 10))=((t mod 100 div 10)+(t mod 10))).DefaultIfEmpty.Println;
end.

Пример(1):
Введите размер массива-gt; 5
Введите элементы массива-gt; 1423 4786 8154 1322 8896
1423 8154 1322

Пример(2):
Введите размер массива-gt; 5
Введите элементы массива-gt; 1564 1546 1534 3548 1354
0