Ввести строку символов.Заменить в ней все «S» на «SSSSS». На экран вывести результаты расчетов — Pascal(Паскаль)

var
 st: string;
 i: integer;
begin
 readln(st);
  for i:=1 to length(st) do
   begin
    if st[i] = 'S' then
     begin
      delete(st, i, 1);
      insert('SSSSS', st, i);
     end;
   end;
 write(st);
end.