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

var
  s:string;
  i:integer;
begin
  readln(s);
  i:=1;
  repeat
    insert(s[i]+s[i],s,i);
    inc(i,3)
  until
    i>Length(s);
  writeln(s)
end.