[ЕЖ]

Ну примерно так:

repeat
  if KeyPressed then
  begin
    ch:=readkey;
    if (ch in ['1'..'9']) then
    begin
       { обработка нажатой клавиши 1-9 в соотв. с вариантом ответа }
    end;
  end;
  { опрос текущего времени функцией GetTime(h,m,s,hund) модуля Dos и вычисление прошедшего интервала (формирование условия окончания цикла) }
until ({ условие окончания цикла });