Cadenas

Hola, discuple la molestia pero soy estudiante de informática y tengo una duda acerca de las cadenas ya que no hemos visto mucho y tengo mucha ejercitación.
Mi duda es la siguiente:
Escribir un algoritmo para contar el numero de ocurrencias de cada una de las palabras a, an y and en las diferentes líneas de texto.
Algoritmo Contar
var
carácter: Texto
entero: c1, c2, c3
inicio
c1 = 0
c2 = 0
c3 = 0
repetir
texto = leercar // funcion interna del sistema
si texto = 'a' entonces
c1 = c1 + 1
             si no
            si texto = 'an' entonces
              c2 = c2 + 1
           si no
                   si texto = 'and' entonces
                         c3 = c3 + 1
                    Fin si
             Fin si
Fin si
Escribir(c1,c2,c3)
Fin
Aquí lo adjunte para que usted pueda darle un vistazo, desde ya le agradezco y espero pueda ayudarme, gracias!.