Дана строка. Заменить все точки многоточием (три точки)- Pascal(Паскаль)

uses crt;

var
  s, b: string;
  i: integer;

begin
  clrscr;
  writeln('Введите строку');
  readln(s);
  for i := Length(s) downto 1 do
    if s[i] = '.' then
      insert('..', s, i + 1);
  writeln(s);
  readln;

end.