Пример
var
   Vf1, Vf2: TextFile;
   i, j: Integer;
begin
   AssignFile( Vf1, 'work1.txt' );
   Rewrite( Vf1 );     // создает и открывает файл 'work1.txt'
   AssignFile( Vf2, 'work2.txt' );
   Rewrite( Vf2);     // создает и открывает файл 'work2.txt'
   Writeln( Vf1, '1 2 3' );     // записывает строку в файл'work1.txt'
   Writeln( Vf1, '10 20 30' );   // записывает 2-ю строку в файл
   Writeln( Vf1, '100 200 300' );   // записывает 3-ю строку в файл
   Reset( Vf1);    { устанавливает указатель файла 'work1.txt' в начало файла}
   while not SeekEof(Vf1) do
       begin   //цикл, пока не достигнут конец файла
       if SeekEoln( Vf1) then Readln;    { если достигнут конец строки в файле, то переход на следующую строку}
       Read( Vf1, j );   // читает число из файла 'work1.txt'
       Writeln( Vf2, j );   // записывает число в файл 'work2.txt'
       end;
   CloseFile( Vf1 );
   CloseFile( Vf2 );
end;