Program PascalGuru;
 
procedure ex(var s:string);
var i:integer; x:string;
begin
x:='';
For i:=1 to length(s) do x:=s[i]+x;
s:=x; end;
{---------------------------------}
var s,s2,slovo:string;
    f:text;
    p:integer;   
begin
assign(f,'file.txt'); reset(f);
 
writeln('C faila prochitano i pokazano v obratnom poryadke:');  writeln;
 
while not eof(f) do
      begin
      readln(f,s);
 
       s2:='';
       p:=pos(' ',s);
        repeat
        slovo:=copy(s,1,p-1);
        ex(slovo);
        s2:=s2+slovo+' ';
        delete(s,1,p);
        p:=pos(' ',s);
        until p=0;
         ex(s);
         s2:=s2+s;      
         writeln(s2);   {результат перевернутой строки}
      end;
close(f);
readln;
end.