Текстовые файлы: вывести по алфавиту звонкие согласные из каждого нечетного слова

const
  sn=['б','в','г','д','ж','з','л','м','н','р','й'];
  sep=[' ','.',',','!','?',':',';'];
 
type
  tset=set of char;
 
procedure consonants(var arg:string);
var
  i:integer;
  sp:tset;
  ch:char;
begin
  sp:=[];
  for i:=1 to length(arg) do
    if arg[i] in sn then
      sp:=sp+[arg[i]];
  while length(arg)<20 do
    arg:=arg+' ';
  write(arg:25);
  for ch in sp do
    write(ch);
  writeln
end;
 
procedure processstring(var arg:string;var count:integer);
var
  st:string;
  i:integer;
begin
  if arg='' then
    exit;
  if not (arg[length(arg)] in sep) then
    arg:=arg+' ';
  st:='';
  for i:=1 to length(arg) do
    if not (arg[i] in sep) then
      st:=st+arg[i]
    else if length(st)>0 then begin
      inc(count);
      if odd(count) then begin
        write(count:3);
        consonants(st);
      end;
      st:='';
    end
end;
 
var
  s:string;
  i:integer;
  f:text;
 
begin
  assign(f,'C:\Files for Program Pascal\Startfile.txt');
  reset(f);
  i:=0;
  while not eof(f) do begin
    readln(f,s);
    processstring(s,i);
  end;
  close(f);
  readln
end.