Подсчитывание количество кругов пробега ученика — Pascal(Паскаль)

uses crt;

var
  ask, number: integer;

label 1;

begin;
  clrscr;
1:
  writeln('Пробежишь еще кружочек ? (1-да, 2-нет)');
  readln(ask);
  IF ask = 1 THEN
  begin
    number := number + 1;
    clrscr;
    GOTO 1;
  end;
  IF ask = 2 THEN
  begin
    writeln('На нет и суда нет. Ты пробежал ', number, ' кругов');
    halt;
  end;

end.