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

program mas;
 
var b: array[1..10] of integer;
    I: integer;
begin
 
 for i:=1 to 10 do
 begin
  write('b[',i,']= ');
  readln(b[i]);
 end;
 for i:= 1 to 10 do
 if b[i] div 1000+b[i] div 1000 mod 10=b[i] div 10 mod 10+b[i] mod 10 then writeln(b[i]);
 readln;
end.

var ....... 
     s:string;
     l:integer;
............
for i:= 1 to 10 do
if b[i]>9 then
begin
  Str(b[i],s);
  l:=Length(s);
  if s[1]+s[2]=s[l]+s[l-1] then writeln(b[i]);
end;

procedure getNum(a,b:integer;var c,d:integer);
  begin
    c:=0;
    repeat
      d:=c;
      c:=a mod 10;
      a:=a div 10;
      dec(b);
     until(a=0)or(b=0);
  end;
var
  a1,a2,a3,a4,n:integer;
begin
  write('enter number:');
  readln(n);
  getNum(n,2,a1,a2);
  getNum(n,0,a3,a4);
  if(a1+a2)=(a3+a4)then writeln('summa :=',a1+a2);
end.

if ord(s[1])+ord(s[2])=ord(s[l])+ord(s[l-1]) then writeln(b[i]);

begin
  ReadlnString('введите последовательность:').Split(',').Where(t->
  begin
    var a:=t.tochararray.select(c->strtoint(c)).toArray;
    Result:=(a.length>1) and (a.take(2).sum=a.takelast(2).sum);
  end).println(' ');
end.

uses crt;
var s,s1:string;
    k:byte;
begin
writeln('Введите строку из натуральных чисел, разделенных запятыми');
readln(s);
s:=s+',';
k:=0;
writeln('Числа у которых сумма первых двух цифр=сумме последних двух цифр');
while pos(',',s)>0 do
 begin
  s1:=copy(s,1,pos(',',s)-1);
  if (length(s)>1) and(ord(s1[1])+ord(s1[2])=ord(s1[length(s1)])+ord(s1[length(s1)-1]))
  then begin
   k:=1;
   writeln(s1);
  end;
  delete(s,1,pos(',',s));
 end;
if k=0 then write('Таких чисел нет')
end.