Текст = "ABC";

Первая = Сред(Текст, 1, 1);
//Первая = "A"
Сообщить("Первая = " + Первая);

Вторая = Сред(Текст, 2, 1);
//Вторая = "B"
Сообщить("Вторая = " + Вторая);

Третья = Сред(Текст, 3, 1);
//Третья = "C"
Сообщить("Третья = " + Третья);

Части = Новый Массив;
Для Индекс = 1 По СтрДлина(Текст) Цикл
    Части.Добавить(Сред(Текст, Индекс, 1));
КонецЦикла;
Список = СтрСоединить(Части, ";");
//Список = "A;B;C"
Сообщить("Список = " + Список);