"Нельзя преобразовать тип 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Добавлено через 5 минутЯ понимаю что '...' это не символ, как сделать так, чтобы ";" заменялась на "..."?

Код к задаче: «"Нельзя преобразовать тип string к char" - Turbo Pascal»

textual
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.

15   голосов, оценка 4.200 из 5


СОХРАНИТЬ ССЫЛКУ