Ошибка времени выполнения: файл не открыт - PascalABC.NET (25370)

Формулировка задачи:

Помогите, пожалуйста, программа выдает ошибку: Ошибка времени выполнения: файл не открыт Задание привожу ниже.

Задание:

Дан текстовый файл. Создать символьный файл, содержащий все символы, встретившиеся в тексте, включая пробел и знаки препинания (без повторений). Символы располагать в порядке [возрастания их кодов]1|[убывания их кодов]2|[их первого появления в тексте]3. Подскажите, как создать символьный файл в Pascal?

                    Листинг программы
                
 
                        
                          
                    
var
  m:set of char;{символьный файл}
  f1: text;
  s: string;
  i: integer;
   begin
     assign   (f1, 'file1.txt'); {связать с файлом file1.txt  файловую переменную f1  }  
     reset(f1); { открыть файл для чтения }
     while not eof (f1) do { пока не конец файла  f1}
       begin
        readln (f1, s);    {читаем строку из файла f1}
          begin 
            m:=[];            
            i:=1;
              repeat                                 
                if s[i] in m then delete(s,1,1)                   
                else
                  begin
                    include(m,s[i]);
                    inc(i);
                    delete(s,1,1);
                  end
              until
               i>length(s);
          end;
      close (f1); {закрыть файл  для чтения}
      writeln('m'    ,m);
      end;
   end.

Решение задачи: «Ошибка времени выполнения: файл не открыт»

textual
                            Листинг программы 
                        
 
                        
                          
                    
{$reference System.Core.dll}
uses System.Linq, System.IO;
begin
  var s : string := &File.ReadAllText('d:\test\01.txt');
  s := new string(s.ToCharArray().Distinct().ToArray());
  writeln(s); // вот тебе все символы, которые присутствуют в исходном файле, по одному разу. Делай с ними что хочешь
end.