---

Функция ИзвлечьТипБилета(ОстатокСтроки, РегВырТип)
    
    ТипБилета = "";
    Результаты = РегВырТип.Найти(ОстатокСтроки);
    
    Если Результаты.Количество() > 0 Тогда
        ТипБилета = СокрЛП(Результаты[0].Значение);
        ОстатокСтроки = СокрЛП(Сред(ОстатокСтроки, Результаты[0].Длина + 1));
    КонецЕсли;
    
    Возврат ТипБилета;
    
КонецФункции