Pascal/Turbo Pascal - Para Luis y Sheila (morse)

Bueno, yo haría algo así:

type TArreglo=array['A'...'Z'] of string[7];

const CLetras:TArreglo=('..', '._', '.._' ..... );
{Así con todos los "símbolos" del código morse}

Después pedimos la letra e imprimimos el string que halla en esa posición del arreglo:

var letra:char;

writeln('Ingrese las letras. Escape para terminar');
repeat
letra:=readkey;

if letra<>#27 then
if (letra>'A') and (letra<'Z') then
writeln(letra,'-->',CLetras[letra])
else
writeln('La letra no es válida');

until letra=#27; {Termina con escape}

Este caso no contempla la letra Ñ, pero es muy fácil hacerlo agregando una comprobación para ese caso especial.

Espero les sirva, saludos y buenas compiladas.

Faltó convertir a mayúsculas:
Letra:=UpCase(Readkey);
este IF:
if (letra>'A') and (letra<'Z') then
debería ser:
if (letra>='A') and (letra=<'Z') then