begin
var s := ReadlnString('Вводи:');
s := s.Replace('ь', 'Мягкий знак!');
s.Println;
end.
Пример работы прилагается
