Algoritmo cadenas

Hola, antes que nada agradezco su disponibilidad y la virtud de compartir los conocimientos con los usuarios, mi duda surge en la elaboración de una lgoritmo que me pide:
Contar el número de ocurrencias de una cadena especifica en diferentes lineas de texto.
Quisiera mostrale mi desarrollo para que le de un vistazo si está bien:
Algoritmo Ocurrencias
Tipo
array[1..M] de cadena: Frase
var
caracter: texto_buscado
entero: CO
inicio
co = 0
escribir('Deme texto a búscar en la frase')
leer(texto_buscado)
repetir
Frase = leercar 'funcion interna del sistema para leer caracteres
si Frase = texto_buscado entonces
CO = CO + 1
fin si
hasta que Frase = M
Escribir('El número de ocurrencias es', CO)
Fin
Desde ya agradezco su atención y muchas gracias!