Pascal/Turbo Pascal - Programa que simule funcionamiento de sms movil

Necesito hacer en pascal un programa para escribir mensajes de texto como en un movil utilizando solo los números.

Hay que utilizar listas.

Alguien puede ayudarme

Repeat
tecla:=ReadKey;
Case tecla Of
1 : num1:=num1+1;
2 : num2:=num2+2;
...
End;
If num2 = 1 Then Write('a');
If num2 = 2 Then Write('b');
If num3 = 3 Then Write('c');
...
Until tecla = <aqui el código ASCII de la tecla Enter>

Yo lo haria así, pero claro pueden existir otras formas más simples.