В алфавитном порядке вывести все звонкие согласные, которые хоть раз встречаются в тексте — Pascal(Паскаль)

 {В алфавитном порядке вывести все звонкие согласные, которые хоть раз
 встречаются в тексте.}

program bukva;
var a,m:set of char;
    c:char;
    fa,s:string;
    f:text;
    i,j:integer;
begin m:=['б','в','г','д','ж','з','л','м','н','р'];
      a:=[];
     writeln;
     writeln('Ваш текст запишите в файл TEXT1.PAS.И вводите это имя файла');
     write('Введите имя файла =>');readln(fa);
     writeln;
     assign(f,fa);reset(f);j:=1;
while not eof(f) do
    begin
     read(f,s);
     for i:=1 to length(s) do
      if (s[i] in m)
       then begin a:=a+[s[i]];
                  i:=i+1;
                  j:=j+1;
            end;
     end;
     for c:='б' to 'р' do
      if c in a then writeln(c);
end.