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

[puporev]

1.Определение палиндрома можно еще сделать так:

Function Perev(str:string):boolean;
var 
     s:    string;
     k:    integer;
begin
    s:='';
    for k:=length(str) downto 1 do s:=s+str[k];//если считать с конца и получится то же
    if s=str  then Perev:=True   //то палиндром
    else Perev:=False;
end;

2. Алгоритм удаления палиндромов из строки.

n:=1;
for i:=1 to length(s) do
begin
if (s[i]=' ') or (i=length(s)) then //если пробел или конец строки
    begin
     if Perev(Copy(s,n,i-n)) then // копируем из строки первое слово и если слово перевертыш
     write(f,copy(s,n,i-n),'  ');//выводим новую строку без палиндромов
     n:=i+1; //переходим к следующему слову
end;

[1234]

Спасибо! Сейчас пытаюсь все вместе собрать
А что такое f в (f,copy(s,n,i-n) ?
чтение в файл? я просто с клавиатуры строку ввожу..


вот так вот получилось, но новую строку не выводит:

program pal;
uses crt;
var
str,s:string;
i,n:integer;

Function Perev(str:string):boolean;
var
     s:    string;
     k:    integer;
begin
    s:='';
    for k:=length(str) downto 1 do s:=s+str[k];
    if s=str  then Perev:=True
    else Perev:=False;
end;

begin
writeln('string:');
readln(str);

n:=1;
for i:=1 to length(s) do
begin
if (s[i]=' ') or (i=length(s)) then
    begin
     if Perev(Copy(s,n,i-n)) then
     writeln(copy(s,n,i-n),'  ');
     readln;
     n:=i+1;
end;
end;
end.

[puporev]

readln(str);

У тебя везде перемення s, а вводишь str. Конечно ничего не выйдет.
И еще. Лучше выводить как я написал, это все-таки строка,, зачем же ее столбиком.

write(f,copy(s,n,i-n),' ');

Анасчет F вы правы, кусок из программы, забыл убрать вывод в файл

[1234]

Работает только для такого варианта asddsaH
В этом случае удаляется последняя буква
А с таким вариантом уже не работает 123321
может я неправильную строку задаю?

[puporev]

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

Это в задании для кого написано? Слова в тексте это группы символов, разделенных пробелами(как правило).
Непишите "Ехал казак домой" и посмотрите, что получится.

[1234]

program pal;
uses crt;
var
str,s:string;
i,n:integer;

Function Perev(str:string):boolean;
var
     s:    string;
     k:    integer;
begin
    s:='';
    for k:=length(str) downto 1 do s:=s+str[k];
    if s=str  then begin
     Perev:=True;
    writeln('yes');
    end
    else
     Perev:=False;
    writeln('no');
end;

begin
writeln('string:');
readln(s);

n:=1;
for i:=1 to length(s) do
begin
if (s[i]=' ') or (i=length(s)) then
    begin
     if Perev(Copy(s,n,i-n)) then
     write(copy(s,n,i-n),'  ');
     readln;
     n:=i+1;
end;
end;
end.

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

[puporev]

Извини, поторопился и сделал две ошибки: не те слова удалял и вместо
to length(s)+1 do написал to length(s) do
Вот нормальный код:

program pal;   
uses crt;   
var  
str,s:string;   
i,n:integer;   
Function Perev(str:string):boolean;
var  
     s:    string;   
     k:    integer;   
begin  
    s:='';
    for k:=length(str) downto 1 do s:=s+str[k];   
    if s=str  then begin  
     Perev:=True;   
    end
    else  
    Perev:=False;
end;
  
begin
clrscr;
writeln('string:');   
readln(s);   
n:=1;
for i:=1 to length(s)+1 do
begin
if (s[i]=' ') or (i=length(s)+1)
 then
 begin
  if not Perev(Copy(s,n,i-n)) then
      write(copy(s,n,i-n),' ');
      n:=i+1;
    end;
end;
readln;
end.

Но это как я понимаю только наметки программы, тут еще кое-что делать надо.