Программа

USES Crt;                            { Подключение модуля Crt }
FUNCTION Question(S:string):boolean; { Функция получения ответа на вопрос }
  Var Ch,ChPred:char; { Переменная для ввода символа и
       предыдущий введенный символ для контроля расширенных кодов клавиатуры }
  Begin
    Ch:=' '; { Начальное определение переменной }
    while KeyPressed do Ch:=ReadKey; { Сброс буфера клавиатуры }
    Write(S,' [Y/N] ');   { Вывод вопроса }
    repeat { Цикл опроса клавиатуры }
      ChPred:=Ch;   { Сохранение предыдущего значения }
      Ch:=ReadKey;  { Чтение нажатия клавиши }
    until (Ch in ['Y','y','N','n','Н','н','Т','т'])and(ChPred<>#0);
                           { Выход из цикла при получении корректного ответа }
    Question:=Ch in ['Y','y','Н','н']; { Определение значения функции }
    WriteLn(Ch)                 { Вывод ответа }
  End;
BEGIN
  repeat
  until Question('Закончить программу?')
END.