Все цифры числа первого файла записать во второй файл, а остальные символы - в третий файл

Var f,g,h:file of char;
    c:char;
    i,n:integer;
Begin
    Assign(f,'a1.dat');Rewrite(f);
    writeln('Введите кол-во символов для заполнения: ');readln(n);
    For i:=1 to n do
     Begin
      write('Введите ',i,'-ый символ: ');readln(c);
      write(f,c);
     End;
    Reset(f);
    Assign(g,'a2.dat');Rewrite(g);
    Assign(h,'a3.dat');Rewrite(h);
    While not Eof(f) do
     Begin
      read(f,c);
      if c in ['0'..'9'] then write(g,c) 
       else write(h,c);
     End;
    Close(f);Close(g);Close(h);
    writeln('Формирование окончено!');
    readln;
End.

 var a,i:integer;
 vvod,s,ost:text;
 b:string;
 begin
 assign(vvod,'c:\FPC\ochenki.txt');
 reset(vvod);
 while NOT  EOF(vvod)  do begin readln(vvod,b);
 
 for i:=1 to Length(b) do  case b[i] of
         '0'..'9':begin
         assign(s,'c:\FPC\cifr.txt');
         rewrite(s);
         write(s,b[i],' ') ;
         close(s);
          end;
  else begin assign(ost,'c:\FPC\ost.txt');
         rewrite(ost);
         write(ost,b[i],' ') ;
         close(ost);
          end;
 end;   end;
 close(vvod);
 end.

assign(s,'c:\FPC\cifr.txt');
         rewrite(s);

 var a,i,osh:integer;
 vvod,s,ost:text;
 b:string;
 begin
 assign(vvod,'c:\FPC\ochenki.txt');
 reset(vvod);
 assign(s,'c:\FPC\cifr.txt');
         rewrite(s);
         assign(ost,'c:\FPC\ost.txt');
         rewrite(ost);
 while NOT  EOF(vvod)  do begin readln(vvod,b);
 for i:=1 to Length(b) do  case b[i] of
         '0'..'9':begin
         write(s,b[i],' ') ;
          end;
  else begin if b[i]<>' ' then
         write(ost,b[i],' ') ;
           end;
 end;   end;
 close(vvod);
 close(s); close(ost);
 end.