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

var
  str: string;
  i,n: byte;
begin
  write('Введите строку: ');
  readln(str);
  n:=length(str);
  for i:=1 to n do
  begin
    if (i<n div 2)and(str[i]=':') then str[i]:='*';
    if (i>n div 2)and(str[i]='!') then str[i]:='.';
  end;
  writeln(str);
  readln;
end.