1) Пробегаете по всей строке циклом For и заменяете символ "!" на "." If (s[i] = '!') then s[i] := '.';