найти самое длинное симметричное слово
есть код где находятся все симметричные слова в тексте
uses crt;
var
b,a,k,max: string;
i,j,q: longint;
c: array[1..30] of string;
begin
clrscr; {othisaem displei}
write('vvedite tekst razdelennii probelami: ');
readln(a); {thtenie vvedennogo teksta}
b:=''; {inichializachiya peremennih}
j:=1;
k:='';
for i:=1 to length(a) do
if (a[i]=' ') then
begin {isem probeli v tekstah}
c[j]:=b; {esli est ' ', to }
inc(j); { zapominaem slovo }
b:='';
end
else b:=b+a[i]; c[j]:=b;
for i:=1 to j do
begin {proveryaem, yavlyaetcya li slovo palindromom}
b:=c[i];
k:='';
for q:=1 to length(b) do
k:=b[q]+k;
if b=k then
begin
writeln(b); {sravnenie i vivod rezyltata}
end;
end;
write('nazmite lybyu klavisy...'); readln;
end.
вопрос
как найти среди них самое длинное, (теоретически понятно взять 1 слово сделать максимальным а потом в цикле сравнивать с остольными, но практически не соображу)
ПОМОГИТЕ