Даны натуральные числа n, символы s1,…, Sn. Преобразовать последовательность S1,…, Sn, заменив в ней все восклицательные знаки точками — Pascal(Паскаль)

uses crt;
var s:array[1..100] of char;
    i,n:integer;
begin
ClrScr;
Write('n=');
Readln(n);
for i:=1 to n do
 Readln(s[i]);
for i:=1 to n do
 if s[i]='!' then
  s[i]:='.';
for i:=1 to n do
Write(s[i]);
Readln;
end.