Исправить ввод только слова на ввод целого текста

uses crt;
var i,n,m:integer;
      a:string;
begin
clrscr;
writeln('Vvedite slovo');
readln(a);
n:=length(a);
m:=1;
for i:=1 to n div 2 do if a[i]<>a[n-i+1] then
begin
 m:=0;
 break
 end;
case m of
1: write(' Vvedonoe slovo palindrom');
0: write(' Vvedonoe slovo ne palindrom');
end;
readln;
end.

readln(str);
str:=str+" ";
slovo:="";
for i:=1 to length(str) do
  begin
    if (str[i]=" ") then
                      begin
                        if (slovo<>"") then 
                                            begin
                                             flag:=true;
                                             for j:=1 to length(slovo) div 2 do
                                                if (slovo[j]<>slovo[length(slovo)-j+1]) then flag:=false;
                                             if(flag) then writeln(slovo);
                                             slovo:="";   
                                            end;
                      end
 else slovo:=slovo+str[i];
 
  end;

str:=str+" ";

str:=str+' ';