Имеется некоторая последовательность символов. Образовать новую последовательность, включив в нее символы исходной в обратном порядке — Pascal(Паскаль)

uses crt;
var s,s1:string;
i:integer;
begin
clrscr;
writeln('Vvedite posledovatelnost:');
readln(s);
s1:='';
for i:=length(s) downto 1 do
s1:=s1+s[i];
writeln;
write(s1);
readln
end.