Function Poslast, Экзаменационная задача Опции

[bimmer]

Помогите с решением задачи!!
ПожаЛуйста. это безумно важно


Proc45. Описать функцию PosLast(subS,S) целого типа, возвращающую номер позиции, с которой в строке S содержится последнее вхождение подстроки subS. Если в строке S отсутствуют подстроки subS, то функция возвращает 0. Вывести значения этой функции для пяти данных пар subS и S. 

[volvo]

А FAQ для кого?
FAQ: Строки, в присоединенном модуле есть Function RevPos(subs, s: String): Byte;