Работа с файлом

[Ямерт]

задание состоит в том, что надо найти все цифры в файле и переместить их в другой файл.)
сделал программу но показывает ошибку на append(h). Никак не могу разобраться почему)

uses crt;
var f,g:text;
    h:file of string;
    s,s1:string;
    i,j,a,c:integer;
begin
clrscr;
assign(f,'file1.txt');
reset(f);
assign(g,'file2.txt');
rewrite(g);
assign(h,'file3.txt');
rewrite(h);
readln(f,s);
for i:=1 to length(s) do 
begin
if s[i] in ['0'..'9'] then append(h)
else append(g);
end;
close(f);
close(g);
close(h);
end.

[Ybn2]

Не недо никакого Append. Вот код.

uses crt;
var f,g:text;
    h:file of string;
    s,s1:string;
    i,j,a,c:integer;
begin
clrscr;
assign(f,'file1.txt');
reset(f);
assign(g,'file2.txt');
rewrite(g);
assign(h,'file3.txt');
rewrite(h);
readln(f,s);
for i:=1 to length(s) do 
begin
if s[i] in ['0'..'9'] then Write (h,s[i])
  else Write(g,s[i]);
end;
close(f);
close(g);
close(h);
end.

[Hacker19_90]

Потому что прежде чем обращаться к файлу надо закрыть его!

uses crt;
var f,g:text;
    h:file of string;
    s,s1:string;
    i,j,a,c:integer;
begin
clrscr;
assign(f,'file1.txt');
reset(f);
assign(g,'file2.txt');
rewrite(g);
assign(h,'file3.txt');
rewrite(h);
close(g);
close(h);
readln(f,s);
append(g);
append(h);
for i:=1 to length(s) do 
begin
if s[i] in ['0'..'9'] then {Добавляешь в g}
else {Добавляешь в h};
end;
close(f);
close(g);
close(h);
end.