Pascal Палиндромы

[irchelika]

Здравствуйте! помогите пожалуйста написать программу

Дана строка. Определить, есть ли в ней палиндром( слово которое читается одинаково слева направо и справа налево) . Если да, то вывести первое из таких слов.

[Stilet]

Что не получается? Разбить строку на слова или понять палиндром ли слово?

[irchelika]

var    s: string;
i,k,l,d: integer;
      b: boolean;
begin
writeln('vvedite stroku: ');
readln(s);
b:= true;
d:= length(s);
l:= d div 2;
for i:=1 to l do
if s[i]<>s[d+1-i] then b:=false;
if b=true then writeln ('palindrom') else
writeln('ne palindrom');
readln;
end.

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



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