Pascal/Turbo Pascal - (consulta) Tratamiento de cadena

Buenas tengo este enunciado de problema:
Escriba un programa que lea una secuencia de caracteres terminada en punto e informe la cantidad de caracteres leídos.
a. Idem anterior, pero informando la cantidad de letras 'f' leídas.
b. Idem a), pero informando la cantidad de letras 'r' leídas seguidas por una 'a'.

lo he codificado quisiera si lo pueden ver y orientarme si esta bien hecho
link : http://pastebin.com/ALCgMxeh

Funciona pero te falta poner debajo de program
uses crt;