заменить восклицательные точками

[Alfa.Shadow]

253 последовательность s1 ,..., sn, заменив в ней:
все восклицательные знаки точками;

[VIK_aka_TOR]

пологаю делать через строки....

var
n : string;
i: integer;
begin

    write('Введите текст ');
    readln(n);
    for i:=1 to length(n) do
    if n[i] = '!' then
    n[i]:='.';
    writeln(n);
end.

[Alfa.Shadow]

спасибо=)))