Ошибка: Поток не выполняется, его нельзя приостановить - PascalABC.NET

uses ABCObjects,GraphABC,ABCButtons;
 
type
  mas = record
    vopr: string[200];
    vo1: string[50];
    vo2: string[50];
    vo3: string[50];
    vo4: string[50];
    vin: integer;
    protv: integer;
  end;
 
var
  f1: file of mas;
  s: mas;
  global: string[4];
 
procedure input;
var
  i: integer;
begin
  rewrite(f1);
  readln();
  for i := 1 to 3 do
  begin
    write('Введите вопрос № ');
    write(i);   
    write(': ');
    readln(s.vopr);
    write('1 Вариант ответа: ');
    readln(s.vo1);
    write('2 Вариант ответа: ');
    readln(s.vo2);
    write('3 Вариант ответа: ');
    readln(s.vo3);
    write('4 Вариант ответа: ');
    readln(s.vo4);
    write('Введите № правильного ответа: ');
    readln(s.protv);
    write('Введите сумму выйгрыша за правильный ответ: ');
    readln(s.vin);
    write(f1, s);
    write('Вопрос № ', i, ' внесен в базу!');
  end;
  writeln();
  close(f1);
end;
 
procedure game;
var
  i: integer;
  j: integer;
  k: integer;
begin
  reset(f1);
  for i := 1 to 3 do
  begin
    read(f1, s);
    write('Вопрос №', i, ': ');
    writeln(s.vopr, ': ');
    writeln('Введите 1, если вы считаете, что правильный вариант ответа: ', s.vo1);
    writeln('Введите 2, если вы считаете, что правильный вариант ответа: ', s.vo2);
    writeln('Введите 3, если вы считаете, что правильный вариант ответа: ', s.vo3);
    writeln('Введите 4, если вы считаете, что правильный вариант ответа: ', s.vo4);
    j := s.protv;
    read(k);
    writeln('Ответ принят');
    // sleep(2000);
    if j = k then
    begin
      writeln('Вы угадали, это правильный ответ. Ваш выйгрыш составляет:', s.vin);
      writeln('Следующий вопрос: ');
    end
    else
    begin
      writeln('Вы проиграли, попробуйте еще раз');
      EXIT;
    end;
  end;
  close(f1);
end;
 
procedure help;
begin
  writeln('Список команд:');
  writeln('1    - Ввести все вопросы заного!');
  writeln('2    - Начать играть, если база с вопросами уже существует');
  writeln('exit - Завершить работу с базой данных');
end;
procedure f;
begin
var b2,b3,b4: buttonABC; 
clearwindow;
  assign(f1, '1.txt');
  while true do
  begin
     b2 := new buttonABC(100, 50, 150, 100, 'ввести базу вопросов ', clGold); 
b2.OnClick := input; 
b3 := new buttonABC(400, 50, 150, 100, 'Начать игру', clGold); 
b3.OnClick := game; 
    begin
      EXIT;
    end;
  end;
  end;
  begin
  var  b1,b2,b3: buttonABC; 
  b1 := new buttonABC(200, 50, 150, 100, 'Новая Игра', clGold); 
b1.OnClick := f; 
 
end.