"Нельзя преобразовать тип string к char" - Turbo Pascal

Формулировка задачи:

Помогите исправить программу:

                    Листинг программы
                
 
                        
                          
                    
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.

Пишет: нельзя преобразовать тип string к char

Я понимаю что '...' это не символ, как сделать так, чтобы ";" заменялась на "..."?

Решение задачи: «"Нельзя преобразовать тип string к char"»

Листинг программы

var
  i:integer;
  n,x,y:real;
begin
  x := 0;
  n := (3.14 - 0 / 0.1) + 1;
  for i := 1 to n do 
     y := exp(ln(e)*sin (x)) * cos (x);
     WriteLn (x, y);
     x := x + 0.1;
end.

Объяснение кода листинга программы

В начале объявляются переменные: i - целочисленный тип, n, x, y - вещественный тип.
Переменная x инициализируется значением 0.
Вычисляется значение переменной n: (3.14 - 0 / 0.1) + 1. Здесь используется оператор деления с остатком / для получения числа с плавающей запятой, а затем результат приводится к целому типу с помощью оператора +.
Запускается цикл for, который выполняется n раз. На каждой итерации вычисляется значение переменной y по формуле: y = exp(ln(e)sin(x)) cos(x). Здесь используется функция exp() для вычисления экспоненты, функция ln() для вычисления натурального логарифма, оператор умножения *, а также функции sin() и cos() для вычисления синуса и косинуса соответственно. Значение переменной x увеличивается на 0.1 на каждой итерации цикла.
После завершения цикла выводится значение переменной x и y с помощью функции WriteLn().
Выполняются все операции, связанные с вычислением значения переменной y.
Код завершается.