Переписать файл в другой файл, осуществляя при записи переход на следующую строку после каждого числа

program rec1;
{Текстовый файл содержит слова и числа. Переписать его в другой файл, осуществляя при записи 
переход на следующую строку после каждого числа.}
uses
  crt;
var
  f,f1 : text;
  i : byte;
  line, nam : string;
begin
  clrscr;
  write('Имя файла : '); readln(nam);
  assign(f,nam);
  {$i-}
  reset(f);
  {$i+}
  If IOResult <> 0 then writeln('Файл не найден.')
  else
   begin
    assign(f1,'OutputFile.txt');
    rewrite(f1);
    while not eof(f) do
     begin
      readln(f,line);
      for i := 1 to length(line)-1 do
       if (line[i] in ['0'..'9']) and (not (line[i+1] in ['0'..'9'])) then 
        begin
         if i=1 then writeln(f1,line[i])
         else writeln(f1);
         write(f1,line[i+1]);
        end
       else
        begin
         if i=1 then write(f1,line[i],line[i+1])
         else write(f1,line[i+1]);
        end;
      writeln(f1);      
     end;
    close(f1);
    close(f);  
    writeln('Файл OutputFile.txt создан.');
   end;
  readln;
end.

program rec1;
uses
  crt;
var
  f,f1 : text;
  i, j, k, err : byte;
  x : integer;
  line, nam : string;
begin
  clrscr;
  write('Имя файла : '); readln(nam);
  assign(f,nam);
  {$i-}
  reset(f);
  {$i+}
  If IOResult <> 0 then writeln('Файл не найден.')
  else
   begin
    assign(f1,'OutputFile.txt');
    rewrite(f1);
    while not eof(f) do
     begin
      readln(f,line);
      j := 1;
      k := 1;
      for i := 1 to length(line) do
       if (line[i]=' ') then 
        begin
          val(copy(line,j,i-j),x,err);
          j := i + 1;
          if err=0 then 
           begin 
            writeln(f1,copy(line,k,i-k+1)); 
            k := i+1; 
           end;
        end;
      writeln(f1,copy(line,k,i-k+1));         
     end;
    close(f1);
    close(f);  
    writeln('Файл OutputFile.txt создан.');
   end;
  readln;
end.