Самое симметричное слово

[Blad47]

Всем привет,написал программу парился пару часов,цель программы найти симметричное слово предложения,написал ,но в самом конце при сравнивании какая-то ошибка не могу разобраться,подскажите пожалуйста.
Думаю другим будет тоже полезен код.

Program simmetria;
Uses CRT;
 Var f:boolean;
 P,a,b,s,max:string;i,l,j:integer;
BEGIN
max:='a';
clrscr;
write('Vvedi predlojenie  ');
readln(p);
l:=length(p);
for i:=1 to length(p) do
 Begin
  f:=false;
  a:=copy(p,i,1);
  if a=' ' then
   Begin
    f:=true;
     for j:=1 to length(s) div 2 do
      Begin
       a:=copy(s,j,1);
       b:=copy(s,length(s)-j+1,1);
        if a<>b then
         Begin
          f:=false;
          s:='';
          break

         End
      End;

   End
   else s:=s+a;
 if f=true then
 Begin
  if length(s)>lenght(max) then
   Begin
    Max:=s;
   End;
  s:='';
 End;

 End;
 writeln('Sim ',max);
Repeat until keypressed;


END.

ЗЫ После предложения обязательно надо ставить пробел!

[Blad47]

Вот переписал сам,кому нужно берите на здоровье!!!

Program simmetria;
Uses CRT;
 Var f:boolean;
 P,a,b,s,max:string;i,l,h,g,j:integer;
BEGIN
max:='a';
clrscr;
write('Vvedi predlojenie  ');
readln(p);
l:=length(p);
for i:=1 to length(p) do
 Begin
  f:=false;
  a:=copy(p,i,1);
  if a=' ' then
   Begin
    f:=true;
     for j:=1 to length(s) div 2 do
      Begin
       a:=copy(s,j,1);
       b:=copy(s,length(s)-j+1,1);
        if a<>b then
         Begin
          f:=false;
          s:='';
          break

         End
      End;

   End
   else s:=s+a;
 if f=true then
 Begin
  h:=length(s);
  g:=length(max);
  if h>g then
   Begin
    Max:=s;
   End;
  s:='';
 End;

 End;
 writeln('Sim ',max);
Repeat until keypressed;


END.

[puporev]

readln(p);
l:=length(p);
for i:=1 to length(p) do
 Begin
  f:=false;
  a:=copy(p,i,1);
  if a=' ' then
   Begin
    f:=true;
     for j:=1 to length(s) div 2 do

Если не секрет, откуда взялась s?

[pomoshnic]

Попробуй вместо "if length(s)>lenght(max) then",
" if length(s)>length(max) then".

[Blad47]

Ха,вот это верно)))
Я запарился реально,но уже работает ,а это главное!
Спасибо

[puporev]

l:=length(p);
for i:=1 to length(p) do

А первая строчка тогда зачем?

[Blad47]

хз)
убрал

[lexus_ilia]

епт, а зачем убрал 1-ую строчку?

l:=length(p);

Если надо

or i:=1 to length(p) do

поменять на

or i:=1 to l do

Из-за того, что у тебя длинна каждый раз считается получается не оптимально.

[Blad47]

Ok) учту спс