Процесс не может получить доступ к файлу, так как этот файл используется другим процессом - PascalABC.NET

program _kursach;
uses crt;
 
var number, yourNumber, i , j, a: integer; out: text;
    choose,vib: char; check, vihod: boolean;
 
procedure Igra;
var s: string; i: integer; 
begin
 randomize;
 j:=1; 
 for i:=1 to 5 do begin
  number:=random(100)+1;
  writeln;
 
  writeln (out, 'Игра номер ', i, ':'); 
  while (j<=6) do begin
   clrscr;
   writeln ('Игра номер ', i);
   writeln;
   write ('Введите число: '); 
   read(yourNumber); 
   writeln (j, ' попытка'); 
   if (number = yourNumber) then begin 
    writeln('Верно!!!'); 
    writeln (out, 'Число угадано ', j, ' попытки'); 
    j:=8; 
   end;
   if (yourNumber < number) then writeln ('Загаданное число больше!'); 
   if (yourNumber > number) then writeln ('Загаданное число меньше!'); 
   j:=j+1; 
   if (j = 7) then begin 
    writeln ('Вы не угадали число :-('); 
    writeln (out, 'Число не было угадано.'); 
   end;
  readln; readln; 
  end;
  j:=1;
  clrscr;
  write ('Было загадано число: '); 
  writeln (number);
  readln;
 end;
 writeln ('Нажмите Enter чтобы закрыть игру...');
end;
 
procedure Files; 
var S: string;
begin
 clrscr;
 assign (out, 'C:\Kursach\out.txt'); 
 reset (out); 
 rewrite (out);
 writeln (out, 'Статистика: '); 
 Igra;
 close (out); 
 reset (out); 
end;
 
procedure Reg;
var pravila: text; S: char; b: integer;
begin
 clrscr;
 assign (pravila, 'C:\Kursach\pravila.txt');
 reset (pravila);
 while not Eof(pravila) do begin
  read (pravila, S);
  write (S);
 end;
 close (pravila); 
 writeln; writeln;
 write ('Нажмите Enter чтобы вернуться в главное меню...');
end;

Begin
repeat
 clrscr;
 writeln ('Игра* "Угадайка"');
 writeln ('1. Начать игру');
 writeln ('2. Правила игры');
 writeln ('3. Выйти из игры');
 repeat
  readln (choose);
  case choose of 
   '1' : Files;
   '2' : Reg;
   '3' : halt;
   else writeln ('Повторите ввод!');
  end;
 until ((choose = '1') or (choose = '2') or (choose = '3'));
 readln();

 clrscr; //вернулись в меню
 writeln ('1. Вернуться в меню');
 writeln ('2. Выйти');
 repeat
  readln (vib);
  if (vib = '2') then halt;
  if (vib = '1') then break
   else writeln ('Сделайте правильный выбор!');
 until ((vib = '1') or (vib = '2'));
until (vihod); 
end.