Нахождение слов-палиндромов ("перевертышей")

[1234]

Подскажите, пожалуйста, как реализовать вот такую задачу:

В файле исходных данных задается символьная строка
Написать Паскаль-программу, включающуй 2 процедуры, выполняющие следующие действия:

1. Нахождение слов-палиндромов (перевертышей), одинаково-читающихся как слева направо, так и справа налево
2. Удаление из строки слов, не являющихся палиндромами.

-Очень интересует то, как именно проводить поиск слов-перевертышей для строки из пяти слов, например-
Если поможете, в долгу не останусь..
Сдать надо завтра (3 проги уже написал, а с этой никак не справлюсь)

[Stilet]

Нахождение слов-палиндромов

По памяти:

var s:string; i:integer;b:boolean;
begin
s:='123321';
b:=true;
for i:=1 to Length(s) div 2 do
 if s[i]<>s[length(s)-i+1] then begin b:=false;end;
if b then //полином

end;

[1234]

Спасибо, а этот код будет работать для вот такой строки, к примеру?
ab ba qw fd wq
Fd - должен удалиться, тк не палиндром

[puporev]

Удалится вся строка, т.к. в ней нет ни одного палиндрома.

[Stilet]

я только проверку на палиндром показал.

[1234]

Вот в этой строке должны удалиться цифры 33:
123321
Как это вот осуществить?

[puporev]

Например так delete(s,pos('3'),2);

[Карась]

1. Нахождение слов-палиндромов (перевертышей), одинаково-читающихся как слева направо, так и справа налево
2. Удаление из строки слов, не являющихся палиндромами.

Вообще чтото муть какаято. В задание одно, а Вы предлагаете чтото удалить из середины слова.

Варианты решения:
1. Самый на мой взгляд менее трудоёмкий это заганть все слова в массив и там уже с ними работать.

2. Исхитриться и в циклах отыскивать начала и концы слов, затем их сравнвать.... Тут надо думать ибо с ходу не написать...

[1234]

А вот именно для данного цикла если Куда этот код поставить? я думаю, что проще заменить слова, которые не являются палиндромами пустыми местами (для наглядности) s[i]:= " "

[NamelessEndless]

var str:string[30];
k,i,n:integer;
Fl:boolean;
begin
readln(str);
n:=length(str);
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');
end.


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