Символьная строка содержит слова, разделенные пробелами. Найти все слова-палиндромы (Паскаль)

[sashunechka]

Символьная строка содержит последовательность слов, разделенных пробелами. Найти все слова,которые читаются слева направо так же,как и справа налево.

program zad1;
var
  str: string; {строка}
  i, l, k, nw, n, m: integer; Fl: boolean;
begin
  i := 1; k := 0; {задаём начальные значения счётчиков}
  writeln('Введите строку');
  readln(str); {вводим строку}
  l := length(str); {определяем длину строки}
  while (i <= l) do {пока не конец строки}
  begin
    if str[i] = ' ' then inc(i); {пропускаем пробел i увел. на 1}
    nw := i; {запоминаем номер начала слова}
    while (i <= l) and (str[i] <> ' ') do
      inc(i); {в цикле прокручивается слово до следующего пробела}
    for i := 1 to n div 2 do
      if str[i] <> str[n - i + 1] then
        Fl := false;
    if Fl then
      writeln('Palindrom')
    else
      writeln('Ne palindrom');
    m := m + 1;
  end;
end.

какие бы строки я не вводила,программа все равно выдает Ne palindrom

[BalashovM]

Так, а почему переменная n не задана? Естественно, n div 2 всегда будет равным 0. Вот ошибка №1
P.S. Я так понимаю, n-это длина текущего слова, то есть
12 if str[i] = ' ' then inc(i); {пропускаем пробел i увел. на 1}
13 nw := i; {запоминаем номер начала слова}
14 while (i <= l) and (str[i] <> ' ') do
15 inc(i); {в цикле прокручивается слово до следующего пробела}
!!! n:=i-nw+1;
16 for i:=1 to n div 2 do
17 if str[i]<> str[n-i+1] then

[sashunechka]

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

uses crt;
var str:string[30];
k,i,n,m:integer;
Fl:boolean;
begin
readln(str);
n:=length(str);
while m<n do
begin
Fl:=true;
for i:=1 to n div 2 do
if str[i]<> str[n-i+1] then
Fl:=false;
if Fl then
writeln ('Palindrom')
else
writeln ('Ne palindrom');
m:=m+1;
end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[GetMax]

Вот первое что пришло в голову

var a,b:string;
    i:Byte;
  begin
    write('Slovo: ');
    readln(a);
    b:='';
    For i:=1 to Length(a) do
    If a[i] = ' ' then Delete(A,i,1);
    for i:=1 to Length(a) do b:=a[i]+b;{ переворачиваем слово }
    if a=b then write('Yes')
           else write('No');
    readln;
End.

[sashunechka]

спасибо большое,за помощь)