Pascal/Turbo Pascal - CODIGO CESAR

Hola, tengo una duda sobre un programa que me han pedido en clase que trata del codigo cesar, que consiste en que el programa lea una letra y muestre 6 letras a su dcha (si introducimos la E, dara la K, etc), mientras que si introducimos cualquier otro caracter del teclado de el mismo caracter. Esto ya lo he echo, pero me han pedido que lo amplie, para que en vez de que el usuario introduzca un solo caracter, introduzca una frase acabada en un punto y haga lo mismo pero con toda la frase introducida. Mi programa es este, solo tengo que retocarlo para que en vez de un caracter, el usuario pueda meter una secuencia y el programa de la secuencia en el codigo cessar. Me podeis echar un cable?? Gracias, a y por cierto, tengo solo que modificar este programa, no hacer otro nuevo, si me ayudais agradeceria que fuera un programa identico a este solo que poniendo lo de la secuencia entera.