{* Задача 292 *}

Unit ZADACH292;
Interface
Implementation
Begin
 writeln('Замена в строке ! на точку (.)
');
End.

Program zadach292;

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