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

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
          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;
          sl:=''; sn:=''; sp:='';
          end;
writeln('Самое длинное симметричное слово "',smax,'", длиной в ',dmax);
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.

uses crt;
var s,sl,sn,sp,smax: string;
    i,j,dmax: byte;
begin
write('s=');                         //запрашиваем строку
readln(s);
s:=s+' '; sl:=''; sn:='';           //добавляем в конце строки пробел, чтобы она находила и последнее слово, строки для выделенных и отраженных слов пока пусты
dmax:=0;                            //начальная длина максимального слова равна 0 (не знаем, найдем ли хоть одно...)
for i:=1 to length(s) do            //в цикле с параметром перебираем элементы строки от первого до последнего
    if s[i]<>' ' then sl:=sl+s[i] else             //если символ - не пробел, то добавляем его к клову, если же пробел - начинаем работать с собранным словом
       if length(sl)>0 then                        //если длина собранного слова больше 0
          begin
          if length(sl) mod 2=0 then               //если длина слова четная, приступаем к проверке на симметричность
             begin
             for j:=1 to length(sl) do             //для этого символы слова переписываем в верхнем регистре (upcase) - на случай, если есть заглавные буквы в начале предложения или в именах
                 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;                            //и словов помещаем в переменную smax
                end;
             end;
          sl:=''; sn:=''; sp:='';                   //прежде, чем перейти к "сборке" следующего слова, очищаем переменные для слов
          end;
writeln('Самое длинное симметричное слово "',smax);
end.