Ошибка выполнения: процесс не может получить доступ к файлу

IF p>=0.5 THEN
        BEGIN
          ASSIGN(f,'PRez.dat');
          RESET(f);
            [B]APPEND(f);[/B]

PROGRAM Main;
TYPE Pere=ARRAY [byte] OF BYTE;
CONST
  n=3;  {количество строк}
  m=8;  {количество столбцов}
  {шифрующая таблица n-строк, m-столбцов}
  {24 символа = 2x12! = 3x8! = 4x6! = 6x4! = 8x3! = 12x2!, итого 6 таблиц, постепенно все проверим}
VAR
  i, j, c, p1,
  k, NN,
  probely,
  ilmv    : BYTE; {счетчик одноразовых букв}
  Yes,
  YesN,
  YesS    : BOOLEAN;
  f       : TEXT;
  DC      : ARRAY [0..11, 1..24] OF CHAR; {шифр длиной 24 символа}
            {массив шифрованного [0] и открытого [1..11] текста, 4 символа не совпадает}
  DCP     : ARRAY [1..24] OF CHAR; {шифр длиной 24 символа, полученный в результате применённых перестановок}
  p       : REAL; {вероятность совпадений}
  Matr,
  Matr1,
  Matr2   : ARRAY [1..n, 1..m] OF CHAR;
            {шифрующая таблица n-строк, m-столбцов}
  Pn, Pm  : Pere; {массив для запоминания текущей перестановки по строкам и столбцам}
PROCEDURE Swap(VAR a, b : BYTE);
{Процедура, которая меняет два элемента местами}
  VAR
    c : BYTE;
BEGIN
  c:=a;
  a:=b;
  b:=c
END;
procedure Next(VAR X : Pere; VAR Yes : boolean);
{процедура формирования следующей перестановки (в виде целого числа) в лексикографическом порядке}
var
  i1, j1 : byte;
begin
  i1:=NN-1;
  {поиск i1}
  while (i1>0)and(X[i1]>X[i1+1]) do
    dec(i1);
  if i1>0 then
    begin
      j1:=i1+1;
      {поиск j1}
      while (j1<NN)and(X[j1+1]>X[i1]) do
        inc(j1);
      Swap(X[i1],X[j1]);
      for j1:=i1+1 to (NN+i1) div 2 do
        Swap(X[j1],X[NN-j1+i1+1]);
      Yes:=true
    end
     else
      Yes:=false
end;
BEGIN
  {создали файл результата}
  ASSIGN(f, 'PRez.dat');
    REWRITE(f);
  CLOSE(f);
  {читаем файл с шифром и открытым текстом}
  ASSIGN(f, 'text.dat');
  RESET(f);
  FOR i:=0 TO 11 DO
    BEGIN
      FOR j:=1 TO 24 DO
        READ(f,DC[i,j]);
        READLN(f);
    END;
  CLOSE(f);
FOR c:= 1 TO 11 DO
BEGIN
  {формируем первую таблицу по открытому тексту}
  k:=0;
  FOR i:=1 TO n DO
    FOR j:=1 TO m DO
      BEGIN
        k:=k+1;
        Matr[i,j]:=DC[c,k] {перебираем строки вариантов открытого текста}
      END;
  {делаем первую (нулевую) перестановку по строкам, n}
    FOR i:=1 TO n DO
      Pn[i]:=i;
    {получили первую перестановку (1, 2, ..., n), ЗДЕСЬ МОЖНО ФОРМИРОВАТЬ СВОЮ ПЕРВУЮ МИНИМАЛЬНУЮ ПЕРЕСТАНОВКУ}
  {делаем первую (нулевую) перестановку по столбцам, m}
  FOR j:=1 TO m DO
    Pm[j]:=j;
  {получили первую перестановку (1, 2, ..., m), ЗДЕСЬ МОЖНО ФОРМИРОВАТЬ СВОЮ ПЕРВУЮ МИНИМАЛЬНУЮ ПЕРЕСТАНОВКУ}
  REPEAT {перестановка по столбцам}
    {переставляем столбцы в таблице Matr в соответствие с полученной перестановкой, даем ей имя Matr1}
    FOR j:=1 TO m DO
      FOR i:=1 TO n DO
        Matr1[i, j]:=Matr[i, Pm[j]];
    {делаем перестановку по строкам, n}
    REPEAT {перестановка по строкам}
      {переставляем строки в таблице Matr1 в соответствие с полученной перестановкой, даем ей имя Matr2}
      FOR i:=1 TO n DO
        FOR j:=1 TO m DO
          Matr2[i, j]:=Matr1[Pn[i], j];
      {переводим таблицу в шифртекст и сравниваем с исходным шифртекстом}
      k:=0;
      FOR j:=1 TO m DO
        FOR i:=1 TO n DO
          BEGIN
            k:=k+1;
            DCP[k]:=Matr2[i,j]
          END;
          
      {сравниваем полученный и исходный шифртекст}
      YesN:=False;
      YesS:=False;
      ilmv:=0;
      probely:=0;
      p1:=0;
      FOR i:=1 TO 24 DO
        IF DCP[i]=DC[0,i] THEN
          BEGIN
            p1:=p1+1;
            CASE DCP[i] OF
              'i': ilmv:=ilmv+1;
              'l': ilmv:=ilmv+1;
              'm': ilmv:=ilmv+1;
              'v': ilmv:=ilmv+1;
              '*': probely:=probely+1;
              'n': IF (DC[0,i]='a')OR(DC[0,i]='r') THEN
                     BEGIN
                       YesN:=TRUE; {попалась буква на замену}
                       {DC[c,i]:='!'}
                     END;
              's': IF (DC[0,i]='a')OR(DC[0,i]='r') THEN
                     BEGIN
                       YesS:=TRUE; {попалась буква на замену}
                       {DC[c,i]:='!'}
                     END;
            END;
          END;
      p:=p1/24;
      IF p>=0.5 THEN
        BEGIN
          ASSIGN(f,'PRez.dat');
          RESET(f);
            APPEND(f);
            WRITELN(f,' ');
            APPEND(f);
            WRITELN(f, 'p=', p:3:2, ' ', p1:2, ' совпадений, ', n:2,'x',m:2,' - таблица; ilmv=', ilmv:1, ', **=', probely:1);
            IF (YesN)AND(YesS) THEN
              BEGIN
                APPEND(f);
                WRITELN(f, 'Буквы n и s можно заменить на a или r!')
              END;
            FOR k:=1 TO m DO
              BEGIN
                APPEND(f);
                WRITE(f, Pm[k],' ')
              END;
            APPEND(f);
            WRITELN(f);
            FOR k:=1 TO n DO
              BEGIN
                APPEND(f);
                WRITE(f, Pn[k],' ')
              END;
            APPEND(f);
            WRITELN(f, '1: ');
            for i:=1 to 24 do
              BEGIN
                APPEND(f);
                write(f, DC[0,i]);
              END;
            APPEND(f);
            WRITELN(f, '2: ');
            for i:=1 to 24 do
              BEGIN
                APPEND(f);
                write(f, DCP[i]);
              END;
            APPEND(f);
            WRITELN(f, '0: ');
            for i:=1 to 24 do
              BEGIN
                APPEND(f);
                write(f, DC[c,i]);
              END;
            WRITELN(f);
            WRITELN(f);
          CLOSE(f);
{          EXIT}
        END;
      NN:=n;
      Next(Pn,Yes)
    UNTIL NOT Yes; {перестановка по строкам}
    {переходим к следующей подстановке по столбцам, m}
    NN:=m;
    Next(Pm,Yes)
  UNTIL NOT Yes {перестановка по столбцам}
END
END.

 RESET(f);
 APPEND(f);

RESET(f);
            APPEND(f);
            WRITELN(f,' ');
            APPEND(f);
            WRITELN(f, 'p=', p:3:2, ' ', p1:2, ' совпадений, ', n:2,'x',m:2,' - таблица; ilmv=', ilmv:1, ', **=', probely:1);
            IF (YesN)AND(YesS) THEN
              BEGIN
                APPEND(f);
                WRITELN(f, 'Буквы n и s можно заменить на a или r!')
              END;
            FOR k:=1 TO m DO
              BEGIN
                APPEND(f);