Заменить в строке все точки на звездочки: ‘.’ – ‘*’ - Free Pascal

Заменить в строке все точки на звездочки: ‘.’ – ‘*’

Листинг программы

uses sysutils;
var s : string;
begin
  readln(s);
  s := StringReplace(s, '.', '*', [rfReplaceAll]);
  writeln(s);
end.

Объяснение кода листинга программы

Используется модуль SysUtils для работы с консолью ввода-вывода.
Объявлена переменная s типа string для хранения строки.
Ввод строки с помощью функции readln(s).
Функция StringReplace заменяет все вхождения символа '.' на символ '*'.
В качестве параметров функции передаются:
- s - строка, в которой нужно произвести замену.
- '.', символ, который нужно заменить.
- '*', символ, на который нужно заменить.
- [rfReplaceAll], флаг, указывающий на замену всех вхождений.
Результат замены сохраняется в переменной s.
Вывод строки с помощью функции writeln(s).