Помогите решить задачу по VBA.
Дана строка, вывести после каждого символа пробел.

Ответ:

Var s:string;

   i:byte;

Begin

   write('Введите строку: ');readln(s);

   For i:=Length(s) downto 1 do

    Insert(' ',s,i+1);

   writeln('Полученная строка = ',s);

   readln;

End.