Ребят есть программа, но что-то не так.

[Henkel]

Условие такое:
Найти самое длинное симметричное слово заданного предложения, например АККА.

подскажите, что не так


Program zadacha;
function simmetric (s:string):boolean;
var t,i:integer;
begin
t:=length(s) div 2;
simmetric:= true;
for i:=1 to t do
if s[i]<>s[length(s)-i+1] then
begin
simmetric:=false;
break;
end;
end;
var s:string;
i,tmp,count, max:integer;
a:array[1..100] of string;
begin
writeln ('введите предложение:');
readln(s);
i:=1; count:=0;
while lenght(s)>0 do
begin
tmp:=pos(s,' ');
a[i]:=copy(s,0,tmp-1);
s:=copy(s,tmp+1,length(s));
i:=i+1;
count:=count+1;
end;max:=1;
for i:=2 to count do
if simmetric (a[i]) and (lenght(a[i])>lenght(a[max])) then
max:=i;
writeln(a[max]);
end.

[Z1000000]

Разбирайся.

Program zadacha;
function simmetric (s:string):boolean;
var t,i:integer;
begin
t:=length(s) div 2;
simmetric:= true;
for i:=1 to t do
if s[i]<>s[length(s)-i+1] then
begin
simmetric:=false;
break;
end;
end;
var s:string;
i,tmp,count, max:integer;
a:array[1..100] of string;
begin
writeln ('введите предложение:');
readln(s);
i:=1; count:=0;
s := s + ' ';
while length(s)>0 do
  begin
  tmp:=pos(' ',s);
  if simmetric(copy(s,1,tmp-1)) then
   a[i]:=copy(s,1,tmp-1);
  s:=copy(s,tmp+1,length(s) - tmp + 1 );
  i:=i+1;
  count:=count+1;
  end;
max:=1;
for i:=2 to count do
 if simmetric (a[i]) and (length(a[i])>length(a[max])) then
  max:=i;
writeln(a[max]);
end.