Найти в строке палиндром максимальной длины

uses crt;
function palindrom(r:string):boolean;
var
   i:integer;
begin
 palindrom:=true;
 for i:=1 to length(r)div 2 do
  if (r[i]<>r[length(r)-i+1]) then palindrom:=false;
end;
var
   s,r:string;
   i,otr,nach:integer;
begin
clrscr;
readln(s);
otr:=2;
nach:=1;
if (length(s)<=2) then r:=s else
while (nach<=length(s)) do
 begin
  r:='';
  inc(otr);
  if (otr=length(s)+1) then
   begin
    inc(nach);
    otr:=nach+2;
   end;
  for i:=nach to otr do
   r:=r+s[i];
  if (palindrom(r)=true) then break;
  if (nach=length(s)-2) and (otr=length(s)) then
   begin
    r:=copy(s,1,3);
    break;
   end;
 end;
writeln(r);
readln
end.

uses crt;
function palindrom(r:string):boolean;
var
   i:byte;
begin
 palindrom:=true;
 for i:=1 to length(r)div 2 do
  if (r[i]<>r[length(r)-i+1]) then palindrom:=false;
end;
var
   s,r,s1:string;
   i,j,mx:byte;
begin
clrscr;
writeln('Введите строку:');
readln(s);
if length(s)<2 then r:=s
 else
  begin
   mx:=1;
   for i:=1 to length(s)-1 do
   for j:=i+1 to length(s) do
    begin
     s1:=copy(s,i,j-i+1);
     if palindrom(s1) and(j-i+1>mx) then
      begin
       mx:=j-i+1;
       r:=s1;
      end;
    end;
 end;
writeln('Палиндром максимальной длины=',r);
readln
end.