procedure WStrSet(C: String; I: Integer; var S: String)
Записывает символ строки в индекс I. Индекс начинается с 1.
Параметры: