Дан массив из n четырехзначных натуральных чисел. Вывести на экран только те, у которых сумма первых двух цифр равна суммепоследних двух. Решение в Паскале

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


Введите размер массива-> 5
Введите элементы массива-> 1423 4786 8154 1322 8896
1423 8154 1322


Введите размер массива-> 5
Введите элементы массива-> 1564 1546 1534 3548 1354
0