Добавить минутный таймер по истечение которого игра кончится

uses
  GraphABC,ABCObjects;
 
var
  i, j, sum: integer;
  f,f1:boolean;
label a, k, b, l, o,v,c,x;
 
procedure MouseDown1(x, y, m: integer);
begin
    if (x in [120..480]) and (y in [295..405]) then
    f1:=false else
  end;
 
procedure MouseDown(x, y, m: integer);
begin
  if f
  then begin
    if (x in [i+6..i + 64]) and (y in [j..j + 57]) then
    begin
      sum := sum + 1;
      f := false;
    end;
  end;
end;
 begin
f1:=true;
SetWindowSize(600, 600);
  SetFontSize(40);
SetBrushColor(clTransparent);
  SetFontColor(clBlack);
  SetBrushColor(clDeepSkyBlue);
  SetFontSize(10);
  SetBrushColor(clTransparent);
  Fillrectangle(120,295,480,405);
  SetFontSize(30);
  TextOut(185,325,'Начать игру');
  TextOut(200,465,'Настройки');
  Fillrectangle(120,445,480,535);
  SetFontColor(clBlack);
while (f1) do begin
OnMouseDown := MouseDown1;
end;
sleep(500);
  f := true;
  SetWindowSize(600, 600);
  goto o;
  b:
  k:
    ClearWindow(clWhite);
    SetFontSize(30);
    goto l;
    o:
    ClearWindow(clWhite);
    TextOut(12,150,'У вас будет 1 минута');
    TextOut(12,200,'Одно попадание-одно очко');
    TextOut(12,250,'Чем больше очков тем лучше');
    Sleep(300);
    ClearWindow(clWhite);
    SetBrushColor(clTransparent);
    TextOut(30,250,'Игра начнется через 3');
    Sleep(300);
    ClearWindow(clWhite);
    TextOut(30,250,'Игра начнется через 2');
    Sleep(300);
    ClearWindow(clWhite);
    TextOut(30,250,'Игра начнется через 1');
    Sleep(300);
    goto b;
    l:
    i := random(WindowHeight-80);
    j := random(WindowWidth-80);
    PictureABC.create(i,j,'goose_PNG28.png');
    setBrushColor(clTransparent);
    FillRectangle(i+6, j, i + 64, j + 57);
    OnMouseDown := MouseDown;
    SetFontSize(20);
    SetBrushColor(clTransparent);
    TextOut(20,10,'Счёт: ');
    TextOut(100, 10, sum);
    sleep(700);
  redraw;
  f := true;
  goto k;
end.

Uses GraphABC,Timers;//добавь таймер в uses
var t1: Timer;//в var таймер с любым названием
procedure OnTimer1;//процедура окончания таймера
begin
  f1:=False;//окончание цикла игры
TextOut(200,100,'Счёт')//вывод слова счёт
 
TextOut(100,10,sum);//вывод счёта
end;
begin
t1 := new Timer(60000, OnTimer1);//таймер на 60 сек
t1.Start;//старт таймера надо в начало игры после создания таймера
 
end.