Pascal/Turbo Pascal - Validar ingreso en readln

hay algun modificador para la sentencia readln que me permita ingresar solo uno de dos valor?
por ejemplo:
readln(SI o NO)

var
letra : char;

readln(letra);
if leta in['n','N`] then
writeln('Ola')
else
writeln('No Ola');
{Esto como readln pero no detecta que pulsen otra cosa que
no sea S o N}
{esto otro si detecta que no se pulsa otra cosa que S o N}

var
letra : char;
repaet
letra := readkey;
{Puedes realizar la comprobación aquí si es si sales si no no}
until letra in['n','N','s','S'];
if letra in['s','S'] then
writeln('SI BUENO')
else
writeln('NO BUENO');