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

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.

m:file of char;{символьный файл}

write(m,s[i]);

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}
    m := ['a', 'c'];            
    i := 1;
    repeat                                 
      if s[i] in m then delete(s, 1, i)                   
        else
      begin
        write(s[i]);
        inc(i);
        delete(s, 1, i);
      end
    until
    i > length(s);
  end;
  close(f1); {закрыть файл  для чтения}
  WriteLn();
  writeln('m', m);
end.

{$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.

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

var 
p: file of char;
assign(p,'simvol.txt');

var
  m: set of char;
  f1: text;
  s: string;
  c: char;
  p,q,r: file of char;
  i,j:integer;
BEGIN
  assign(f1, 'file1.txt');     {связать с файлом file1.txt  файловую переменную f1}
  assign(p, 'file2');          {связать с файлом file2  файловую переменную p}
  reset(f1);                   {открыть файл для чтения }
  rewrite(p);                  {открыть для записи}
  m := [];                     {инциализация множества}
  while not eof(f1) do         {пока не конец файла  f1}
   begin
    readln(f1, s);             {читаем строку из файла f1}
    for i := 1 to s.Length do  {добавляем в множество символы, встретившиеся в файле}                          
    if s[i] in m then continue                  
    else
      begin
        write(p,s[i]);         {запись символа в файл}
        include(m, s[i]);      {добавление файла в множество} 
      end
   end;
  close(f1);                   {закрыть файл  для чтения}
  reset(p);                    {открыть для чтения символьный файл}
  writeln('Символы из файла, отсортированные в порядке их появления в тексте: ');
  while not eof(p)do           {вывод содержания символьного файла на экран}
   begin
    read(p,c);
    write(c);
   end;
  close(p);                    {закрыть файл}
  s:='';                       {инициализация строки}
  reset(p);                    {открыть символьный файл для чтения}
  while not eof(p)do           {запись символов из файла в строку}
   begin
     read(p,c);
     s:=s+c;
   end;
   begin
     writeln(' ');             {сортировка символов по возрастанию кодов}
     writeln('Сортировка по возрастанию кодов:');
       for i:=1 to length(s) do
       for j:=1 to length(s)-1 do
       if s[j]>s[j+1] then
         begin
             c:=s[j];
             s[j]:=s[j+1];
             s[j+1]:=c;
         end;
   writeln(s);                 {вывод результата на экран}
   assign(q, 'file3');         {связать с файлом file3 файловую переменную q}
   rewrite(q);                 {открыть файл для записи}
   for i:=1 to length(s)do     {запись отсортированных символов строки в файл}
   write(q,s[i]);
  end;
  begin                         {сортировка символов по убыванию кодов}
    writeln('Сортировка по убыванию кодов: '); 
     for i:=1 to length(s) do
     for j:=1 to length(s)-1 do
     if s[j]<s[j+1] then
       begin
         c:=s[j];
         s[j]:=s[j+1];
         s[j+1]:=c;
       end;
    writeln(s);                 {вывод результата на экран}                
    assign(r, 'file4');         {связать файл file4 и файловую переменную r}
    rewrite(r);                 {открыть файл для записи}
    for i:=1 to length(s)do     {запись отсортированных символов в файл}
    write(r,s[i]);              
 end;
END.