Pascal/Turbo Pascal - agregar simbolo de tipo char al mensaje

TENGO UNA DUDA.
ESTOY PREPARANDO UNA TAREA DE PROGRAMACION DE MENSAJE TELEFONICO.
QUIERO SABER COMO AGREGAR UN CARACTER DE SIMBOLO MANTENIENDO LOS ANTERIORES (TECLA POR TECLA) DE MANERA QUE ME VAYA FORMANDO TODO EL MENSAJE.-

EJEMPLO:
7 -> p
7-> q
7-> r
6->rl
6->rm
6->rn
2->rna
2->rnb
5->rnb=
4->rnb=4

y asi sucesivamente....

gracias desde ya, saludos

Hola Andrés! ¿Cómo será el modo? ¿Por cada tecla que presiones te aparece un menú con las letras posibles? Supongamos que casi tienes formada una palabra, y presionas el 7, entonces abajo aparecen las opciones...

ANDRE
<ANDREP> <ANDREQ> <ANDRER> <ANDRES>

¿Es así que quieres resolverlo? Espero tu respuesta. Un abrazo!

A mi se me ocurre con refrescos de pantalla,un contador y un arrays de registros de tipo tecla formado por:
-la tecla en cuestion tipo char
-las distintas opciones de letras tipo arrays of char
ejemplo:
introduzco una a-> cont:1 teclas.distintasOpciones[cont]=a
aqui un refrsco de pantalla
introduzco otra vez a-> cont=2 teclas.distintasOpciones[cont]=b
cuando cambie de letra pones el cont=0.
A lo mejor pa implementarlo con un case. no lo e pensao muxo pero a lo mejor ayuda.
saludos