Вывести все "недопалиндромы" из указанного диапазона

var s,news:string; a,b,i,k:integer; p:array[0..32767] of integer; fin,fout:text;
begin
assign(fin,'input.txt');
assign(fout,'output.txt');
k:=0;
reset(fin);
read(fin,a,b);
close(fin);
for i:=a to b do
begin
s:=inttostr(i);
news:=inttostr(strtoint(s[1])+strtoint(s[2])+strtoint(s[3])+strtoint(s[4])+strtoint(s[5]));
if (news[1]=news[2]) or (news[2]='') then
begin
if (i>9) and (i<100) then
if s[1]<>s[2] then
begin
k:=k+1;
p[k]:=strtoint(s);
end;
if (i>100) and (i<1000)then
if s[1]<>s[3] then
begin
k:=k+1;
p[k]:=strtoint(s);
end;
if (i>1000) and (i<10000)then
if (s[1]<>s[4]) xor (s[2]<>s[3]) then
begin
k:=k+1;
p[k]:=strtoint(s);
end;
if (i>10000) and (i<32768) then
if (s[1]<>s[5]) xor (s[2]<>s[4]) then
begin
k:=k+1;
p[k]:=strtoint(s);
end;
end;
end;
rewrite(fout);
write(p);
close(fout);
end.

Var
  a,b,c,d:longint;
  t:string;
  nb:boolean:=true;
begin
  write('Введите диапазон [a,b]:');
  readln(a,b);
  for a:=a to b do begin
    t:=inttostr(a);
    if t<>ReverseString(t) then begin
      c:=a;d:=0;
      while c>0 do begin d:=d+c mod 10;c:=c div 10;end;
      t:=inttostr(d);
      if t=ReverseString(t) then begin write(' ',a);nb:=false;end;
    end;
  end;  
  if nb then writeln('В указанном диапазоне "недопалиндромов" нет');
end.

Var
  a,b:longint;
function Snum(x:string):string:=x.Sum(k->strtoint(k)).ToString;
begin
  write('Введите диапазон [a,b]:');
  readln(a,b);
  writeln(Range(a,b).Select(i->inttostr(i)).Where(x->x<>ReverseString(x)).
  Where(x->Snum(x)=ReverseString(Snum(x))));
end.

function Palindrom(n : string) : boolean := n = ReverseString(n);
begin
  write('Введите диапазон [a, b]:');
  writeln(Range(ReadLnInteger(),ReadLnInteger()).Select(v -> IntToStr(v)).Where(x -> (not Palindrom(x)) and Palindrom(x.Select(v -> StrToInt(v)).Sum().ToString())));
end.

function Snum(x:string):string:=x.Select(c->strtoint(c)).Sum().ToString;