Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Вставить после каждого слова запятую.

Question

Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Вставить после каждого слова запятую.

Экономика

Гость

Ответ(ы) на вопрос:

Гость

var s, r : String; i : Integer; begin r := ''; Writeln('Введите строку:'); Readln(s); while s[i] <> #0 do begin if s[i] = ' ' then r:= r + ','; r := r + s[i]; end; Writeln(r); Readln; end.

Accepted Answer

Простите, но в чем суть задания? Что делать? Поясните по-человечески