Как учесть русские символы для записи в файл?

Даны два файла f и g, необходимо в файл h внести все символы из файлов f и g в файл h. Все вроде как работает, но русские символы в файл заносит как ‘РРСРР’

uses crt;
const m=['a'..'z','A'..'Z'];
  m2=['а'..'я','А'..'Я'];
var f,g,h:text;
    i,j:integer;
    ch:char;
    s:string;
begin
assign (f,'f.txt');
assign (g,'g.txt');
assign (h,'h.txt');
reset(f); reset(g);
rewrite(h);
while not eof(f) do
 begin
  readln(f,s);
   for i:=1 to length(s) do
    begin
     ch:=s[i];
     if ch in m then write(h,ch)
     else if ch in m2 then write(h,ch)
    end;
  writeln(h);
 end;
while not eof(g) do
begin
 readln(g,s);
  for i:=1 to length(s) do
   begin
    ch:=s[i];
    if ch in m then write(h,ch)
    else if ch in m2 then write(h,ch)
   end;
  writeln(h);
end;
  close(h);
  close(g);
  close(f);
end.