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

[bimmer]

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


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

[APAL]

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

Код

Function PosLast(subS,S : String) : Byte;
Var i : byte;
Begin
 PosLast:=0;
 For i:=Length(s)-Length(subs)+1 downto 1 do
   If Copy(s,i,Length(subs))=subs then
   Begin
     PosLast:=i;
     Break;
   End;
End;