Определить в тексте слова, которые можно читать слева направо и справа налево (Анна, шалаш и т.д.).

program tmp;
uses crt;
var
   st,str,str1:string;
   i:integer;
   flag,flag1:boolean;
 
function Palindrom(st:string):boolean;
var
   i:integer;
   st1:string;
begin
Palindrom:=false;
for i:=length(st) downto 1 do
st1:=st1+st[i];
if st=st1 then Palindrom:=true;
end;
 
begin
clrscr;
 
write('vvedite stroku: '); readln(st);
str:='';
flag:=true;
flag1:=true;
for i:=1 to length(st) do
if st[i]=' ' then flag1:=false;
if flag1 then begin
            for i:=1 to length(st) do
            str:=str+st[i];
            if Palindrom(str) then begin
                                   writeln(str);
                                   flag:=false;
                                   end;
            end
       else begin
            str1:='';
            for i:=1 to length(st) do
            if st[i]<> ' ' then str1:=str1+st[i]
                           else begin
                                if Palindrom(str1) then begin
                                                        writeln(str1);
                                                        flag:=false;
                                                        end;
                                str1:='';
                                end;
            end;
if flag then writeln('v zadannom tekste net slov-palindromov');
readkey;
end.

uses crt;
var t1,t2,t3,t4:string;
k,i,j:integer;
mn:set of char;
 
function position(t:string) : integer;
var
i:integer;
begin
i:=0;
repeat
inc(i);
until t[i] in mn;
position:=i;
end;
 
begin clrscr;
writeln('vvedi text');
readln(t1);
if t1[length(t1)] <> ' ' then
t1:=t1+' ';
mn:=[' ',',','.','!','?',':',';'];
 
t2:='';
t3:='';
t4:='';
while t1<>'' do
begin
k:=position(t1);
t2:=copy(t1,1,k-1);
t3:='';
for i:=length(t2) downto 1 do t3:=t3+t2[i];
if t2=t3 then writeln('clovo ',t2 ,'- polindrom');
delete(t1,1,k);
end;
 
readkey;
end.