Найдите самое длинное симметричное слово заданного предложения

program prog;
 
function IsSymmetric(const s: string): boolean;
var
  i, j: integer;
begin
  i:= 1;
  j:= Length(s);
 
  while i < j do
  begin
    if s[i] <> s[j] then exit(false);
    Inc(i);
    Dec(j);
  end;
 
  IsSymmetric:= true;
end;
 
//--------------
 
const
  delim = [' ', ',', '.', '!', '?', ':', ';'];
 
var
  n: integer;
  i: integer;
  sentence: string;
  token: string;
  longest_symmetric: string;
begin
  Write('Input sentence: ');
  ReadLn(sentence);
 
  i:= 1;
  n:= Length(sentence);
  longest_symmetric:= '';
 
  while i <= n do
  begin
    if sentence[i] in delim then
      repeat Inc(i) until (i > n) or (not (sentence[i] in delim))
    else
    begin
      token:= '';
      while (i <= n) and (not (sentence[i] in delim)) do
      begin
        token:= token + sentence[i];
        Inc(i);
      end;
      if IsSymmetric(token) and (Length(longest_symmetric) < Length(token)) then 
        longest_symmetric:= token;
    end;
  end;
 
  if(longest_symmetric <> '') then
    WriteLn(longest_symmetric)
  else
    WriteLn('not found');
 
  ReadLn;
end.

uses crt;
var s,sl,sn,sp,smax: string;
    i,j,dmax: byte;
begin
write('s=');
readln(s);
s:=s+' '; sl:=''; sn:='';
dmax:=0;
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i] else
       if length(sl)>0 then
          begin
          if length(sl) mod 2=0 then
             begin
             for j:=1 to length(sl) do
                 begin
                 sn:=sn+upcase(sl[j]);
                 sp:=upcase(sl[j])+sp;
                 end;
             if (sp=sn) and (dmax<length(sp)) then
                begin
                dmax:=length(sp);
                smax:=sl;
                end;
             end;
          sl:=''; sn:=''; sp:='';
          end;
writeln('Самое длинное симметричное слово "',smax,'", длиной в ',dmax);
end.