Ввести строковую последовательность из 12-ти или меньшего количества элементов

[Mixasnt]

Ввести строковую последовательность из 12-ти или меньшего количества элементов, и,
если в строке есть символ '+', то перед этим знаком и после него прибавить пробела.

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
a:string;
i:byte;
begin

Writeln('========================== ====');
Writeln('Enter the string sequence of 12 or fewer elements,');
Writeln('and If the line is the '+' sign before it and after it to add a space.');
Writeln('========================== ====');
Writeln;

Write('Enter the sting of 12 characters of fewer: ');
readln(a);

for i:=0 to length(a) do

if a[i]='+' then
insert(' ',a,i);
insert(' ',a,i+1);

Writeln;
Writeln('Rezultat:');
Writeln(a);
Writeln;
Writeln('to exit press enter...');
readln;

end.

то что получилось, работает не так как нужно
помогите пожалуйста...

[ViktorR]

for i:=0 to length(a) do

if a[i]='+' then
insert(' ',a,i);
insert(' ',a,i+1);

Вероятно, имелось ввиду:

for i:=0 to length(a) do
   if (a[i]='+') then
   begin
        insert(' ',a,i);
        insert(' ',a,i+2); {на i+1 позиции уже '+'}
   end;

И как, ... ?

[Mixasnt]

Вот что в итоге получилось,и работает:

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
a:string;

begin

Writeln('========================== ====');
Writeln('Enter the string sequence of 12 or fewer elements,');
Writeln('and If the line is the '+' sign before it and after it to add a space.');
Writeln('========================== ====');
Writeln;
Write('Enter the sting of 12 characters of fewer: ');
readln(a);

a := StringReplace(a, '+', ' + ', [rfReplaceAll]);

Writeln;
Writeln('Rezultat:');
Writeln(a);
Writeln;
Writeln('to exit press enter...');
readln;

end.

[ViktorR]

Я тут немного посрамился ...
Для решения в том -же стиле:

i := 1;
while i <= length(a) do
begin
   if (a[i]='+') then
   begin
      insert(' + ',a,i); {вставим сразу всю подстроку}
      i := i + 2;         {все же 2 для следующего символа после вставки?}
   end;
   i:= i+1; {или inc(i)}
end;

Так понятнее. Надо изменить значение переменной цикла, поскольку после вставки символ '+' продвигается вперед.

Как-то так ...