Почему не происходит остановка таймера?

uses crt;
var
b:real;
a,i:integer;
c,d:char;
begin
writeln('Введите время в минутах.');
readln(a);
a:=a*60;
b:=1;
  for i:= 1to a do 
  begin
  sleep(1000);
  while KeyPressed do
      begin
      a:=2;
      if ReadKey=#0 then ReadKey;
      writeln('Таймер остановлен');
      sleep(2000);
      end;
    write(b);
  write(' ');
  b:=b+1;
  end;
end.

repeat
//что-то делаем
until keypressed;

while not KeyPressed do
      begin

uses crt;
var
b:real;
a,i:integer;
c,d:char;
begin
writeln('Введите время в минутах.');
readln(a);
a:=a*60;
b:=1;
  for i:= 1to a do 
  begin
  sleep(1000);
  while KeyPressed do
      begin
      if ReadKey=#0 then ReadKey;
      writeln('Таймер остановлен');
      halt;//Это штука решает нашу проблему
      sleep(2000);
      end;
    write(b);
  write(' ');
  b:=b+1;
  end;
end.

uses crt;
var
b:single;
i,a:integer;
c:char;
begin
writeln('Введите время в минутах.');
readln(a);
a:=a*60;
b:=1;
  for i:= 1to a do 
 while not KeyPressed do
  begin
  sleep(1000);
  write(b);
  write(' ');
  b:=b+1;
  end;
writeln('Таймер выключен');
writeln('Нажмите Enter для выхода');
readln(c); 
end.