реакция и адаптация

uses crt,dos,graph;
var x,y:integer;
    hour,min,sec,hund:word;
    t,t1,t2:real;
    c,w:char;
    s:string;
begin
randomize;
x:=0;
initgraph(x,y,'');
{в центре экрана рисуем зеленую кнопку}
x:=getmaxX div 2;
y:=getmaxY div 2;
setcolor(10);
circle(x,y,20);
setfillstyle(1,10);
floodfill(x,y,10);
{задержка случайно от 0 до 10 секунд, можно увеличить}
delay(random(10000));
{загорается красным цветом}
setcolor(12);
circle(x,y,20);
setfillstyle(1,12);
floodfill(x,y,12);
{выбираем случайную клавишу для нажатия, у меня цифры 0..9}
c:=chr(random(10)+48);
outtextXY(x-50,40,'Press key  '+c);
gettime(hour,min,sec,hund);{фиксируем время}
t1:=sec+hund/100;{переводим его в секунды}
repeat
if keypressed then
 begin
  w:=readkey;{ждем нажатия кллавиши}
  if w=c then{нажали}
   begin
    gettime(hour,min,sec,hund);{новое время}
    t2:=sec+hund/100;
    str(t2-t1:0:2,s);{вычитаем и преобразуем в строку}
    setcolor(10);{кнопка снова зеленая}
    circle(x,y,20);
    setfillstyle(1,10);
    floodfill(x,y,10);
    outtextXY(x-50,60,'Vashe vremya='+s);
    setcolor(15);
    outtextXY(x-50,80,'Press any key...');
   end;
 end;
until w=c;{конец цикла-нажатие клавиши}
readkey{выход из программы}
end.