{* Задача 34 *}

Unit ZADACH34;
Interface
Implementation
Begin
 writeln('Заменить все символы Ch1 в данной строке на Ch2 ( Ch1 и Ch2 вводятся с клавиатуры).');
End.

Program zadach34;

Uses zadach34.pas; {* Эту строку можно удалить *}
Uses Crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  ch1 : char;
  ch2 : char;
  i   : integer;
  S   : String;
Begin
  writeln('Введите строку: ');
  readln(s);
  write('Замененный символ: ');
  readln(ch1);
  write('Заменяемый символ: ');
  readln(ch2);
  While pos(ch1, s)0 Do
    s[pos(ch1, s)] := ch2;
  writeln('Результат: ');
  writeln(s);
End.