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