PS. Слова в предложении отделяются друг от друга одним пробелом.
procedure per(s:string);
var s1,s2:string;
i:integer;
begin
s:=s+' ';
s1:='';
s2:='';
for i:=1 to length(s) do
if s[i]<>' ' then
begin
s1:=s1+s[i];
s2:=s[i]+s2;
end
else begin
if s1=s2 then writeln(s1);
s1:='';
s2:='';
end;
end;
begin
per('это шалаш или нет');
end.
Результат:
шалаш
или
У тебя всё есть дерзай! У тебя всё получится!!
У кого сильные мышцы,
тот победит одного.
кто силён знаниями,
тот победит тысячи
Выбранный вариант и так подразумевает utf-8 без BOM заголовка
1-4) знаковая
5) вербальной
6) знаковой
7) вроде бы материальная или знаковая
8-10) знаковая