В записке слова зашифрованы-каждое из них записано наоборот. Расшифровать сообщение — Pascal(Паскаль)

var
s,c:string;
i:integer;
begin
readln(s);
s:=s+' ';
for i:=1 to length(s)do
if s[i]<>' ' then c:=s[i]+c else begin
write(c,' ');
c:='';
end;
readln;
end.