В строке удвоить символы — Pascal(Паскаль)

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

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