Question

Дан текст, содержащий запятые. Написать программу, вставляющую после каждой запятой пробел.

Answer 1

var
  s : string;
  i : integer;
begin
  readln (s);
  i := 1;
  while (i <= length (s)) do
  begin
    if (s[i] = ',') then insert (' ', s, i + 1);
    i := i + 1;
  end;
  writeln (s);
end.