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

[habi]

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

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

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

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

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

[habi]

=)
не увидел антил..спасибо за алгоритм :]
Спасибо.

Проблема была в обнуление, присвоил ans пробел, и всё окей =)как в первом варианте.

Сообщение отредактировано: habi - 15.05.2008 21:53