{* Задача 312 *}

Unit ZADACH312;
Interface
Implementation
Begin
 writeln('В символьной строке между словами вставить вместо пробела запятую и пробел.');
End.

Program zadach312;

Uses zadach312.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  s : String;
  a : String;
  i : integer;
Begin
  clrscr; {* Очистка экрана *}
  writeln('Введите строку символов, содержащую пробелы');
  readln(s);
  For i := 1 To length(s) Do {* Переменная i увеличивается с 1 до length(s) *}
  Begin
    If s[i]  ' ' Then
      a := a + s[i];
    If s[i] = ' ' Then
      a := a + ', ';
  End;
  writeln; {* Вывод пустой строки *}
  writeln('После замены всех пробелов на ", "');
  writeln('строка примет вид:');
  writeln(a);
  readln
End.