Занести в файл h только согласные буквы из исходного файла

program pr;
 
const
  byk: set of char = ['б', 'в', 'г', 'д', 'ж', 'з', 'й', 'к', 'л', 'м', 'н', 'п', 'р', 'с', 'т', 'ф', 'х', 'ц', 'ч', 'ш', 'щ'];
 
var
  f, h, f1, g: text;
  i, n, cout: integer;
  c: char;
 
begin
  cout := 0;
  assign(f, 'c:\f0.txt');
  assign(f1, 'c:\f1.txt');
  assign(h, 'c:\h.txt');
  assign(g, 'c:\g.txt');   // файл без удалённых букв 
  rewrite(h);
  rewrite(f1);
  rewrite(f);
  rewrite(g);
  writeln('Введите количество символов для записи');
  readln(n);
  for i := 1 to n do
  begin
    readln(c);
    writeln(f, c);
  end;
  close(F);
  reset(f);
  while not eof(f) do
  begin
    readln(f, c);
    writeln(f1, upcase(c));
    if c in byk then
    begin
      writeln(h, c);
    end;
  end;
  close(f1);
  close(h);
  reset(f);
  while not eof(f) do
  begin
    readln(f, c);
    if c <> 'о' then
    begin
      writeln(g, c);
    end
    else cout := cout + 1;
  end;
  writeln('Количество букв "о": ', cout);
  close(f);
  close(g);
end.

function UCase(c: Char): Char;
begin
  case c of
  'a'..'z','а'..'п': Dec(c,$20);
  'р'..'я':          Dec(c,$50);
  'ё':               Dec(c);
  end;
  UCase:=c;
end;
const
  ruLo = ['а'..'п','р'..'я','ё'];
  ruLoVow = ['а','е','и','о','у','ы','э','ю','я','ё'];
  ruLoCons = ruLo-ruLoVow-['ъ','ь'];
var
  f: array [0..3] of Text;
  c: Char;
  i, n: Integer;
begin
  Assign(f[0],'0.txt'); Reset(f[0]);
  for i:=1 to 3 do begin
    Assign(f[i],Chr(Ord('0')+i)+'.txt'); Rewrite(f[i]);
  end;
  while not EoF(f[0]) do begin
    Read(f[0],c);
    Write(f[1],UCase(c));
    if c in ruLoCons then Write(f[2],c);
    if c='о' then Inc(n) else Write(f[3],c);
  end;
  WriteLn('Количество "о": ',n);
  for i:=0 to 3 do Close(f[i]);
end.