Необходимо утроить каждую букву в заданном тексте — Pascal(Паскаль)

var
 f,r:string;
 i:integer;
begin
 readln(s);
 for i:=1 to length(s) do r:=r+s[i]+s[i]+s[i];
 writeln(r);
 readln;
end.

var
 S: string;
 i, n: byte;
begin
 Readln(S);
 i:=1;
 n:=length(S);
 while i<(n*3) do
  Begin
   insert(S[i]+S[i],S,i);
   inc(i,3);
  End;
 Writeln(S);
end.