{* Задача 74 *}

Unit ZADACH74;
Interface
Implementation
Begin
 writeln('Под термином "текст" будем понимать ряд символов, длина которых не превышает 255 символов. Под термином "слово" будем понимать последовательность символов, которая не содержит пропусков. Составить прогу, которая меняет пробелы на запятые ');
End.

Program zadach74;

Uses zadach74.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  s : String;
  i : integer;
Begin
  writeln('Введите текст');
  readln(s);
  For i := 1 To length(s) Do {* Цикл для i => [1 .. length(s)] *}
  Begin
    If s[i] = ' ' Then
      s[i] := ', ';
  End;
  writeln(#13#10, 'Результат: ',#13#10, s);
  readln; {* Ждем нажатия Enter *}
End.