procedure WStrSet(C: String; I: Integer; var S: String)  

Записывает символ строки в индекс I. Индекс начинается с 1.

Параметры:

• C - новый символ.
• I - индекс.
• S - строка-приемник.