Um simples programa que serve como cronometro. Basta digitar o tempo pretendido e o programa faz uma contagem decrescente ate 0.

program cron;
uses crt;
var tempo:integer;
begin
     write ('Digite o tempo que deseja cronometrar (s): ');
     read (tempo);
     while (tempo<>0) do
     begin
          delay (1000);
          clrscr;
          writeln ('Cronometro : ',tempo,' segundos');
          tempo := tempo-1;
      end;
      writeln ('');
      writeln(' Tempo esgotado !');
      delay(3000);
end.