{* Задача 311 *}

Unit ZADACH311;
Interface
Implementation
Begin
 writeln('В символьной строке заменить все двоеточия (:) точкой с запятой (;). Подсчитать количество замен.');
End.

Program zadach311;

Uses zadach311.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  s : String;
  a : String;
  i : integer;
  j : 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
    Begin
      a := a + ';
      ';
      j := j + 1;
    End;
    
  End;
  writeln; {* Вывод пустой строки *}
  writeln('После замены всех символов " : " на ";
  "');
  writeln('строка примет вид:');
  writeln(a);
  writeln; {* Вывод пустой строки *}
  writeln('Произведено замен: ', j);
  readln
End.