Exercício 5!

.Escreva uma função que retorne o numero de ocorrências de uma sub-string passada 

com parâmetros.

Function ocor(sub,s:string):byte;

Var i,cont,tsub,ts:byte;

Begin

Cont:=0;

Tsub:=lenght(sub);

Ts:=lenght(s);

For i:=1(ts-tsub+1) do

Cont:= cont+1;

Ocor:= cont;

End;