Дана строка. Преобразовать ее, заменив точкой все двоеточия, встречающиеся среди первых n/2 символов, и заменив точками все восклицательные знаки, встречающиеся среди символов, стоящих после n/2 символов — Pascal(Паскаль)

var
n,i:integer;
s:string;
begin
    writeln('Vvedite stroku');
    readln(s);
    n:=length(s);
    for i:=1 to n div 2 do
    if s[i]=':' then s[i]:='.';
    for i:=n div 2+1 to n  do
    if s[i]='!' then s[i]:='.';
    writeln('Itogo');
    writeln(s);
end.