Pascal/Turbo Pascal - ayuda con variable tipo char

Hola,
Aqui va resumido mi juego, es bastante simple pero no logro hacer q lea variables tipo char (no se si es posible), si no fuera posible haber si me dan alguna solucion. Trate de escribirlo lo mas simple y ordenado

program xxxxx;

uses
crt;

var
yn:char;

begin
a : = 1;
while (a = 1) do
begin
.
.
.
Aqui va el programa principal
.
.
.
etc
end;
--------------------------------------------------------------------------------------------
//aquii viene mi problema, luego de que finaliza el programa principal

writeln;
writeln('Deseas Jugar Nuevamente?');
writeln('Presiona Y');
writeln('Para salir presiona N');

readkey ( yn ); //creo que aqui tambien hay un problema, pero si uso read sigue =
case yn of
( 'y' or 'Y' ) : ( a=1 ); //esta es la parte donde no le encuentro solucion
( 'n' or 'N' ) : ( a=2 ); //esta es la parte donde no le encuentro solucion
end;

end; //del while de mas arriba)
end.

Por favor si alguien tiene la amabilidad de ayudarme(proponiendo otra solucion o ayudandome en los errores que tengo), pero manteniendo la estructura del Y o N para reiniciar el juego o salir.
PD : traten de explicarme todo bien y paso a paso plz, debido a que soy principiante en esto de la programacion en pascal

Gracias

readkey ( yn ); //creo que aqui tambien hay un problema, pero si uso read sigue =
case yn of
( 'y' or 'Y' ) : ( a=1 ); //esta es la parte donde no le encuentro solucion
( 'n' or 'N' ) : ( a=2 ); //esta es la parte donde no le encuentro solucion
end

Te corrijo esa parte:

yn := readkey;
if (yn = 'n') or (yn = 'N') then
a := 2;

Primero asignas a yn lo que lees del teclado, y luego preguntas sólo si yn es igual a 'n' o 'N', y modificas (ya que si tecleas Y, la variable sigue en 1.

Un abrazo!

muchas gracias, eso resolvio mi problema :D