Pascal/Turbo Pascal - Cronometro pascal

Les comento q estoy haciendo un proyecto para el colegio para controlar un cibercafe. Tengo ciertos problemas con los tiempos de las maquinas. Necesitaría la forma de como crear un cronometro en turbo pascal. E intentado hacerlo tomando la hora actual y comparando y restando considerando diferentes cosas con una hora fija, pero ninguna con éxito. Si alguien tiene una idea sobre como solucionar mi problema o tenga algo parecido a un cronometro q es lo q quiero hacer lo agradecería

no hay ninguna funcion en pascal llamada time o algo parecido? hace años que no toco pascal.

Quizás esto te ayude un poco, solo púlelo un poco (gráficamente y demás) y listo.

Suerte.

program timer;
uses crt,dos;

const
wx1 = 35;
wy1 = 12;
wx2 = 45;
wy2 = 14;

var
h,m,s,sent,hb,mb,sb,sentb : word;
i : byte;

function salir : boolean;
var
c : char;
begin
salir:=false;
if keypressed then
begin
c:=readkey;
if (ord(c)=27) then salir:=true;
end;
end;

begin
clrscr;
write('presione enter para iniciar');
readln;
write('presione escape para salir');
window(wx1,wy1,wx2,wy2);
gettime(hb,mb,sb,sentb);
repeat
GetTime(h,m,s,sent);
gotoxy(2,2);Write(h:2,':',m:2,':',s:2);
until (salir);
window(1,1,80,25);
clrscr;
h:=h-hb;
m:=m-mb;
s:=s-sb;
write('Resultado >> ',h:2,':',m:2,':',s:2,' presione enter para salir');
readln;
end.

program cronometro;
uses crt;

VAR a,b,c,d:integer;

Begin
For c:=0 to 24 do
For b:=0 to 59 do
For a:=0 to 59 do
For d:=0 to 100 do
begin
clrscr;
gotoXY (5,2); write ('* Cronometro Digital V 1.1 *');
gotoXY (12,4); write (c,' :',b,' :',a,' :',d);
delay (10);
end;
readkey;
End.

Como haceer para qee pare el cronometro :33

{A qui tienes la forma de pararlo por tecla o por tiempo trascurrido }

program conometro;
uses
crt, dos;
var
minu, segu, time, tiempo : word;
tec : char;

begin
clrscr;
gotoxy(4,4);write('Entre Tiempo Maximo En Minutos : ');
gotoxy(37,4);readln(tiempo);
clrscr;
gotoxy(10,4);write('Conometro para pararlo pulsa ESC');
gotoxy(4,10);write('Tiempo : ');
time := 0;
segu := 0;
minu := 0;
repeat
delay(15);
segu := segu + 1;
if segu > 60 then
begin
gotoxy(24,10);write(' ');
time := time + 1;
if time = 60 then
begin
minu := minu + 1;
time := 0;
end;
segu := 0;
end;
gotoxy(14,10);write('Tiempo :',minu,':',time,':',segu);
if keypressed then {PARADA POR TECLADO}
tec := readkey;
until (tec = #27) or (time = tiempo); {PARADA POR TIEMPO}
readln;
end.

hi! Yo soy brasileiro, yo no hablo bien el espagnol, mas yo tengo uno proyecto de uno cronometro en turbo pascal:

Program cronometro ;
var tempo:integer;
Begin
// Solicita o tempo para o cronometro
write ('Digite o tempo que você deseja que o programa cronometre (s): ');
read (tempo);

// Repeticao até o tempo chegar em zero
while (tempo<>0) do
Begin
delay (1000);
clrscr;
writeln ('Cronometrando: ',tempo,' segundos');
tempo := tempo - 1;
End;

writeln ('');
Write (' Tempo esgotado !');
End.