Удвоить в строке все символы «+» — Pascal(Паскаль)

пример "1+2+3++4" = "1++2++3++++4"

uses crt;
var s:string;
    i:byte;
begin
clrscr;
writeln('Введите строку, содержащую символы +');
readln(s);
for i:=length(s) downto 1 do
if s[i]='+' then insert('+',s,i);{если +, вставляем еще 1}
write(s);
readln
end.