Как написать на языке паскаль программу читающую слова задом ! надо!

Var s,s1:string;
i:integer;
begin;
readln(s);
for i:=length(s) downto 1 do
s1:=s1+s[i];
writeln(s1);
end.