В текст вставить символ пробел после каждого имеющегося символа пробел (программа Паскаль)

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