Буквы = Новый Структура;
Буквы.Вставить("А", "гласная");
Буквы.Вставить("Б", "согласная");
Буквы.Вставить("В", "согласная");

Ключи = Новый Массив;
Для Каждого Буква Из Буквы Цикл
    Если Буква.Значение = "согласная" Тогда
        Ключи.Добавить(Буква.Ключ);
    КонецЕсли;
КонецЦикла;
//Ключи = ["Б", "В"]

Стр = СтрСоединить(Ключи, ",");
Сообщить("Ключи = [" + Стр + "]");