Расположить символы в порядке убывания их кодов - PascalABC.NET

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

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

var
  m: set of char := [];
  f1: text;
  s: string;
  p: file of char;
begin
  assign(f1, 'file1.txt'); {связать с файлом file1.txt  файловую переменную f1  }
  assign(p, 'file2.txt');
  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.

Как можно, каждый раз, входя в цикл:

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

Записывать символ s[i] в символьный файл, не удаляя предыдущие записи? Таким способом я намереваюсь реализовать 3й ответ на задание (Символы расположены в порядке их первого появления в тексте)

Решение задачи: «Расположить символы в порядке убывания их кодов»

textual
                            Листинг программы 
                        

                            s:='';
while not eof(p)do
  begin
   read(p,c);
   s:=s+c;
  end;
write(s);
                        