Hola,
Hay una gran diferencia entre read() y readln().
http://pastebin.com/diff.php?i=JG4GM7BD
La diferencia está en la forma que manejan la 'cola' de teclas. read() lee la siguiente tecla que haya en la cola, si no hay nada no lee nada. readln() espera hasta que se presione la tecla enter.
Prueba a escribir:
Introduzca el tipo de llamada. N:Nacional, P:Provincial, L:Local : 0 N
Lógicamente la solución es usar readln.
Saludos,