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.
Результат:
шалаш
или
