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

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