program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  CountRead = 65535; // кол-во читаемых записей.
   // При длине записи в 1 байт - размер буфера.
var
  F_in : file ;
  F_out: TextFile;
  hello: array[0..4] of char = ('h','e','l','l','o'); // буфер
  num_read: Integer; // фактич. считанные/записанные записи
  num_write: Integer; // фактич. считанные/записанные записи
  buf : Array[0..CountRead] of char;
  i : Integer;


begin
  try
    AssignFile(F_in, 'D:\Borland Delphi 10 Lite v 3.0\Borland Delphi 10 Lite v 3.0\Test.txt');  // связали файл с переменно
    Reset(F_in,1);            // размер записи один байт
    Seek(F_in, 0);
    BlockWrite(F_in, hello, 5,  num_write);
    CloseFile(F_in);
    Reset(F_in,1);            // размер записи один байт
    AssignFile(F_out, 'D:\Borland Delphi 10 Lite v 3.0\Borland Delphi 10 Lite v 3.0\Result.txt');  // связали файл с переменной
    Rewrite(F_out);
    repeat
      BlockRead(F_in, buf, CountRead, num_read);
      for i := 0 to CountRead do
        Write(F_out, buf[i])
    until (num_read = 0);
  finally
    CloseFile(F_in);
    CloseFile(F_out);
  end;
end.