типа УдалитьХвостСтроки(ВсяСтрока, "-");
ВсяСтрока = "0пвапвапвапылвпд0-пвапв31321"
нужет ответ  "0пвапвапвапылвпд0"

Сред()

самое простое - регулярное выражение написать

Лев()

Может тогда Лев(ВсяСтрока,СтрНайти(ВсяСтрока,"-")+1) будет лучше не?

уточняю
ВсяСтрока = "0пвапвап-вапыл-впд0-пвапв31321"
нужет ответ  "0пвапвап-вапыл-впд0"

([.^-]+-)

сделай разложитьвмассивподстрок и собери все элементы, кроме последнего

уточняю
Сред()
ну или Лев() как советуют

(5) тогда разложи в СписокЗначенией по разделителю "-", и далее - конкатенация всех значений, кроме последнего.

в 8.3.6 есть найтипоследнее()

Для i =- СтрДлина(стр) По 0 Цикл
Если сред(стр, -i) = "-" тогда
прервать;
Конецесли;
Ответ = Лев(стр, -i-1);

м = СтрРазделить(ВсяСтрока,"-",истина);
м.Удалить(м.Количество()-1);
ВсяСтрока = СтрСоединить(м,"-");

(10) прикольно.. Да, видел что расширили состав функций работы со строкой

(10) СтрНайти(<Строка>, <ПодстрокаПоиска>, <НаправлениеПоиска>, <НачальнаяПозиция>, <НомерВхождения>)

если надо чтобы за..ся, можно .dll-ку со строковыми функциями через COM подключить, она что хошь сделает