procedure StrSet(C: Char; I: Integer; var S: string)  

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

Параметры:

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