Pascal/Turbo Pascal - contador de la secuencia 'ab'

Siento ponerme tan pesado con las vocales.
He intentado hacerlo como el de contar vocales pero no me deja.

Si lo que deseas es contar las veces que aparece la secuencia ab en una cadena lo único que tienes que hacer es buscar secuencialmente letra por letra hasta que encuentres una a, si enseguida se encuentra una b, entonces incrementas un contador, de lo contrario se queda igual, esto se repite hasta que encuentres el final de la cadena.