Question

Нельзя преобразовать тип string к char
Var s: string;
i: byte;
Begin
readln(s);
For i:=1 to length(s) do
If s[i]='!' then s[i]:='!!!';
Writeln(s);
End.

Answer 1

s[i]:='!!!' - это что такое? Обычно (в нормальных языках) меж одинарных кавычек задаётся символ, а ты пытаешься задать строку из нескольких символов. Тут надо добавлять как отдельные символы еще 2 восклицательных знака.