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

program bsc;
 {обработка строк.Преобразовать строку, заменив все :,
встречающиеся среди первых n/2 символов и заменив точками все ! ,
встречающиеся среди символов, стоящих после n/2 символов.}
var s:string; i:integer;
begin write('введите строку символов:'); readln(s);
      for i:=1 to length(s)  do
      if i<=0.5*length(s) then
      begin if s[i]=':' then s[i]:='.'
      end
      else if s[i]='!' then s[i]:='.';
           writeln('обработанная строка:',s)
end.