Ошибка времени выполнения: "Файл не открыт"

Var F1:file of byte;
     b:byte;
     s:string;
Const Name1='C:\Desktop\LR9-1.txt'; // мой путь для файла
Begin
Assign (F1,Name1);
Reset(F1);
Writeln('Чтение данных из файла: ');
While not EOF(F1) do begin // останавливается всегда здесь
begin
      Read(f1, B); if (B > 31) and (B < 254) then
        begin
          S :=chr(B);
          if S.Length = 80 then //сам не понимаю что за выражение, но так подсказали(
            begin
              WriteLn(S); S := '';
            end;
        end;
    end;
  Close(f1); if S.Length > 0 then WriteLn(S);
end;
end.

procedure Seek(n: int64); 
        Устанавливает текущую позицию файлового указателя в двоичном файле на элемент с номером n

function FilePos: int64; 
        Возвращает текущую позицию файлового указателя в двоичном файле

Const Name1='LR9-1.txt'; // мой путь для файла
Var F1:file of byte;
     b:byte;
     s:string;
 
Begin
Assign(F1,Name1);
Reset(F1);
Writeln('Чтение данных из файла: ');
While not Eof(F1) do
begin // останавливается всегда здесь
begin
      Read(f1, B); if (B > 31) and (B < 254) then
        begin
          S :=chr(B);
          if S.Length = 80 then //сам не понимаю что за выражение, но так подсказали(
            begin
              WriteLn(S); S := '';
            end;
        end;
    end;
 end;
  Close(f1); if S.Length > 0 then WriteLn(S);
 
end.

begin
  var f : File of Byte; Reset(f, 'LR9-1.txt'); 
  var S : String; var B : Byte;
  while Not EOF(f) do
    begin
      Read(f, B); if (B > 31) and (B < 254) then
        begin
          S += Chr(B);
          if S.Length = 80 then
            begin
              WriteLn(S); S := '';
            end;
        end;
    end;
  Close(f); if S.Length > 0 then WriteLn(S);
end.

var
  i:integer;
begin
  foreach c:byte in System.IO.File.ReadAllBytes('hh.exe') do 
   if c in [31..254] then begin
    write(chr(c));
    i+=1;
    if i mod 80=0 then writeln;
  end;
end.

Var F1:file of byte;
     b:byte;
     s:string;
       c:integer;
Const Name1='E:\LR9-1.txt'; // текст
Begin
Assign (F1,Name1);
Reset(F1);
Writeln('Чтение данных из файла: ');
While not EOF(F1) do begin
begin 
     if c in [31..254] then begin
    write(chr(c));
    c+=1;
    if c mod 80=0 then writeln;
end;
end;
end;
end.

Var F1:file of byte;
     b:byte;
     s:string;
       c:integer;
Const Name1='D:\LR9-1.txt'; // текст
Begin
Assign (F1,Name1);
Reset(F1);
Writeln('Чтение данных из файла: ');
While not EOF(F1) do begin
begin 
     READ(F1,b);
     if b in [31..254] then begin
    write(chr(b));
    c+=1;
    if c mod 80=0 then writeln;
end;
end;
end;
end.