В текст воткнуть символ пробел после каждого имеющегося nbsp;nbsp;символа пробел

USES Crt;
VAR
nbsp;nbsp;A : STRING [255]; nbsp;I: INTEGER;
BEGIN
nbsp;nbsp;ClrScr;
nbsp;nbsp;WriteLn(Введите текст); nbsp;ReadLn(A);
nbsp;nbsp;I:=1;
nbsp;nbsp;While (Ilt;=Length(A)) DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;IF A[I]= THEN Begin nbsp;Insert ( ,A,I); nbsp;nbsp;I:=I+1; nbsp;End;
nbsp;nbsp;nbsp;nbsp;nbsp;I:=I+1;
nbsp;nbsp;nbsp;End;
nbsp;nbsp;WriteLn(Измененный текст:); nbsp;WriteLn(A);
END.