Programa para free pascal

[valentina0]

Hola! necesito ayuda con free pascal ya que tengo que hacer un programa que use el método multitap para teclado de teléfonos celulares, es decir si yo pongo 2 = a, 22=b, 222=c, 2222=2 y que al volver a poner 22222 me vuelva a la a. (que sea algo cíclico). La verdad que no tengo idea como poder hacerlo, si me conviene usar el comando repeat o el while para que se repita el procedimiento en caso de pasarme de 2222 por ejemplo.
La mínima ayuda me sirve! Al menos que declaración de variables me conviene y como usar repeat o de que otra forma sería más viable.
Y una última cosa! Me gustaría también como hacer para definir lo siguiente:
Si tengo que escribir "casa": (la cual tiene dos teclas seguidas que corresponden al número 2) tendré que poner: 222P277772L (siendo L el fin de línea) pero ¿cómo hago para definir esa P =pausa?
Cualquier ayuda me sirve gracias a todos la atención!