Pascal,записи удалить все символы «+», а символы, не являющиеся «+», удвоить

var

  inStr, outStr : string;

  i : integer;

begin

     outStr := '';

     ReadLn(inStr); 

     for i := 1 to Length(inStr) do

         if inStr[i] <> '+' then

            outStr := outStr + inStr[i] + inStr[i];

     WriteLn(outStr);

end.