Розв’язок задачі з Абрамова №253а

Все условия | Условие: Дано натуральне число n, символи s1, ..., sn. Перетворити послідовність s1, ..., sn, замінивши в ній всі знаки оклику точками. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №252)

program Pr253_1;
var
  s : string;
  i, n : byte;
begin
  readln(s);
  for i:=1 to length(s) do
    if s[i] = '!' then
      s[i] := '.' ;
  writeln(s);
  readln;
end.