Дана строка S. Преобразовать строку, заменив в ней каждую точку многоточием (тремя точками). — Pascal(Паскаль)

uses crt;
var s:string;
    i:byte;
begin
clrscr;
writeln('Vvedite stroky');
readln(s);
for i:=length(s) downto 1 do
    if s[i]='.' then insert('..',s,i);
writeln(s);
readln;
end.