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

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.

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;

uses CRT;
 
const
  pravilaFile = 'pravila.txt';
  resultFile  = 'result.txt';
  GamesCount  = 3;
  MaxSteps    = 8;
 
function GetKey(vars : array of Char) : Char;
begin
  repeat
    Result := ReadKey;
  until vars.IndexOf(Result) >= 0;
end;
 
procedure PressAnyKey;
begin
  Write(NewLine, NewLine, 'Для продолжения нажмите любую клавишу...');
  var Key := ReadKey;
end;
 
function declination(v1, v2, v3 : String; n : Integer) : String;
begin
  case n of
    1 : Result := v1;
    2..4 : Result := v2;
  else
    Result := v3;
  end;
end;
 
procedure Game;
begin
  var s := String.Format('Начало игры {0:dd.MM.yyyy HH:mm}', System.DateTime.Now);
  var guess := 0;
  for var GameNumber := 1 to GamesCount do 
    begin
      var number := Random(1, 100);
      var v := number.ToString + ' :';
      WriteLn(NewLine*3 + GameNumber + ' игра:');
      WriteLn('Загадано число от 1 до 100.');
      WriteLn('Угадайте это число:');
      var player : Integer;
      var step := 0;
      repeat
        step += 1;
        player := ReadLnInteger(NewLine + step + ' попытка. Введите число:');
        v += ' ' + player;
        case sign(number - player) of
          -1 : WriteLn('  Загаданное число меньше.');
           0 : WriteLn('  Вы угадали! Было загадано число ' + number + '.');
          +1 : WriteLn('  Загаданное число больше.');
        end;
      until (number = player) or (step = MaxSteps);
      if number <> player then // значит не угадали
        begin
          WriteLn('Вы не угадали. Было загадано число ' + number + '.');
          s += NewLine + 'Загаданное число не было угадано за ' + MaxSteps + ' ходов.' + NewLine + v;
        end
      else
        begin
          s += NewLine + 'Загаданное число было угадано за ' + step +
          declination(' ход.', ' хода.', ' ходов.', step) + NewLine + v;
          guess += 1;
        end;
    end;
  var g := NewLine + 'Из ' + GamesCount + declination(' загаданного числа ',
  ' загаданных чисел ', ' загаданных чисел ', GamesCount) + (guess = 0 ?
  'не угадано ни одного числа.' : 'угадано ' + guess + declination(' число.',
  ' числа.', 'чисел.', guess));
 
  WriteLn(NewLine + '~'*25 + NewLine + 'Игра окончена.' + g + NewLine + '~'*25 + NewLine);
  
  s += NewLine + String.Format('Окончание игры {0:dd.MM.yyyy HH:mm}', System.DateTime.Now);
  s += NewLine + g;
  s += NewLine + '~'*100;
  var f : Text; Append(f, resultFile); WriteLn(f, s); Close(f);
  PressAnyKey;
end;
 
procedure Pravila;
begin
  ClrScr;
  try
    WriteLn(ReadAllText(pravilaFile));
  except
    WriteLn('Файл с правилами игры не найден!');
  end;
  PressAnyKey;
end;
 
begin
  Randomize;
  var theEnd := False;
  repeat
    ClrScr;
    WriteLn('  Игра "Угадайка"');
    WriteLn('~'*25);
    WriteLn('  1. Начать игру');
    WriteLn('  2. Правила игры');
    WriteLn('  3. Выйти из игры');
    WriteLn('~'*25);
    Write('Введите номер действия: ');
    var Select := GetKey(arr('1', '2', '3'));
    case Select of 
      '1' : Game;
      '2' : Pravila;
      '3' : theEnd := True;
    end;
  until theEnd;
  ClrScr;
  WriteLn('До новых встреч!');
end.