Получение ответов вида y\n, Интерфейс Опции

[habi]

Как лучше реализовать? =)
Если пользователь ввёл y, то условие тру, если n то фалс..

Задача: сделать защиту от "дурака".
Тип переменной ans, в которую передаётся нажатие пользователем клавишь, char.

Пробывал сделать через вайл, но почему-то не обнуляется потом переменная ans

while (ans='y') or (ans='n') do
begin
if .... then ... else...
end;

Так же сделал, через отдельную функцию, которая выводила окно, с 3 кнопками, да\нет\отмена =) но задание курсовой не позволяет ввести такое окно.
Так как же проверять значение лучше? :]

[compiler]

ты это имел ввиду?

uses crt;

function q: boolean;
var ch : char;
begin
   repeat ch:= readkey; until ch  in ['y', 'n'];
   if ch = 'y'
      then begin writeln('yes'); q:=true; end
      else begin writeln('no'); q:=false; end;
end;