Создать файл (текстовый) средствами редактора. Читать этот файл построчно и упорядочить все цифры по убыванию

program file_text;
type symbols = set of '0'..'9';
var  f1:text;
     st: string;
     n: byte;
     i: integer;
     f, s:symbols;
        begin
     assign (f1, 'file.txt');
{связать с файлом file1.txt файловую переменную f1}
     rewrite (f1);
{создать новый файл с именем file1.txt}
     readln (f1);
     readln (f1);
     readln (f1);
     close (f1);
     reset (f1);
     while not eof (f1) do
     begin
     readln (f1, st);
     writeln (st);
     s:=['0'..'1'];
     f:=[];
     for i:=1 to length(st) do if st[i] in s then
        f:=[]+st[i];
        writeln ('упорядоченные цифры, которые встречаются в данном текстовом файле', f);
        end;
        close (f1);
     end.

program file_text;
uses crt;
const cf=['0'..'9'];
var  f1:text;
     st: string;
     n,i,j: byte;
     s:char;
begin
clrscr;
assign (f1, 'file.txt');
{связать с имеющимся файлом file.txt файловую переменную f1}
reset(f1);
while not eof (f1) do
 begin
  readln(f1,st);
  n:=length(st);
  for i:=1 to n-1 do
  for j:=i+1 to n do
  if(st[i] in cf)and(st[j] in cf)and(st[i]<st[j]) then
   begin
    s:=st[i];
    st[i]:=st[j];
    st[j]:=s;
   end;
  writeln(st);
 end;
close(f1);
readln
end.