{* Задача 287 *}

Unit ZADACH287;
Interface
Implementation
Begin
 writeln('

Дана символьная строка. Преобразовать ее, заменив запятыми (,) все двоеточия (:), встречающиеся среди первых n/2 символов, и заменив точками (.) все восклицатель­ные знаки (!), встречающиеся среди остальных символов.

');
End.

Program zadach287;

Uses zadach287.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.