Funcao - criar uma funcao pos recursiva

function PosN(Substring, Mainstring: string; n: Integer): Integer; 

{ 

Function PosN get recursive - the N th position of "Substring" in 

"Mainstring". Does the Mainstring not contain Substrign the result 

is 0. Works with chars and strings. 

} 

begin 

  if Pos(substring, mainstring) = 0 then  

  begin  

    posn := 0;  

    Exit;  

  end 

  else 

  begin 

    if n = 1 then posn := Pos(substring, mainstring)  

    else 

    begin 

      posn := Pos(substring, mainstring) + posn(substring, Copy(mainstring, 

        (Pos(substring, mainstring) + 1), Length(mainstring)), n - 1); 

    end; 

  end; 

end;