[Pascal] Найти самый короткий палиндром.

[JonDee]

Дана строка символов. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Слова, читающиеся слева на право и справа на лево одинаково будем называть палиндромами(перевертышами). Найти самый короткий палиндром.

uses crt;
const b=['a'..'z','а'..'я'];
      z=['0'..'9','+','-','*',' ','_'];
var ds:set of char;
    c:char;
    s,s1,s2:string;
    n,i,j,p,g:byte;
begin
clrscr;
writeln('Введите строку из малых английских букв и знаков + - * ');
writeln('длиной до 80 символов, окончание ввода Enter');
s:='';
n:=0;{длина строки}
ds:=b+z;{допустимые символы}
repeat
c:=readkey;{читаем код клавиши}
if c in ds then{если допустимый}
 begin
  n:=n+1;{считаем}
  s:=s+c;{добавляем к строке}
  write(c);{выводим на экран}
 end;
if (c=#13)or(n=80) then writeln;{если Enter или 80, на новую строку}
until (c=#13)or(n=80);{конец ввода}
writeln('Группы букв-палиндромы');
p:=0;{нет палиндромов}
g:=0;{нет групп букв}
i:=1;
while i<=n do{пока не конец строки}
if(s[i] in b)and((i=1)or(s[i-1] in z)) then{если буква и она первая или перед ней знак}
 begin
  g:=1;{есть группы букв}
  s1:='';{слово}
  j:=i;
  while(j<=n)and(s[j] in b) do{пока не конец и не знак}
   begin
    s1:=s1+s[j];{составляем слово}
    j:=j+1;
   end;
  s2:=''; {читаем его с конца}
  for j:=length(s1)downto 1 do
  s2:=s2+s1[j];
  if s2=s1 then{если одинаково}
   begin
    p:=1; {есть палиндромы}
    writeln(s1);{выводим}
   end;
  i:=i+length(s1);{перешагиваем через слово}
 end
else i:=i+1;{если знак, пропускаем}
if g=0 then write('Нет групп букв')
else if p=0 then write('Нет палиндромов');
readln
end.

помогите что бы он выбирал самый маленький палиндром.