Дан текстовый файл.Создать символьный файл содержащий все символы встречающиеся в тексте(то есть в файле) включая пробел и знаки препинания(без повторений).символы располагать в порядке убывания — Pascal(Паскаль)

uses crt;
var  f:text;
     g: file of char;
     b: set of char;
     c: char;
     nf,ng:string;
     i:byte;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf);
nf:=nf+'.txt';
assign(f,nf);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл ',nf,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
write('Имя файла для записи: ');
readln(ng);
assign(g,ng);
b:=[];
rewrite(g);
while not eof(f) do
 begin
  read(f, c);
  b:=b+[c];
  end;
close(f);
for i:=255 downto 0 do
 begin
  c:=chr(i);
  if c in b then write(g,c);
 end;
writeln('Содержание символьного файла ',ng);
reset(g);
while not eof(g) do
 begin
  read(g,c);
  write(c);
 end;
close(g);
readln
end.