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

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

var
  m: set of char;
  f1: text;
  s: string;
  c: char;
  p: file of char;
begin
  assign(f1, 'file1.txt'); {связать с файлом file1.txt  файловую переменную f1  }
  assign(p, 'file2');
  reset(f1); { открыть файл для чтения }
  rewrite(p);
  m := [];
  while not eof(f1) do { пока не конец файла  f1}
  begin
    readln(f1, s);    {читаем строку из файла f1}
    for var 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)  
   
end.

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