mencopy text file pada delphi console

program Project12copytxtfile;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;
  //System.BlockRead,System.BlockWrite,System.Close


var
  FromF, ToF: file;
  NumRead, NumWritten: Integer;
  Buf: array[1..2048] of Char;
begin
 try

    AssignFile(FromF, 'fileasal.txt');
    if FileExists('fileasal.txt') then

    Reset(FromF, 1) else rewrite(FromF,1);	{ Record size = 1 }

      AssignFile(ToF, 'filecopy.txt');	{ Open output file. }
      Rewrite(ToF, 1);	{ Record size = 1 }
      writeln( 'Copying ' + IntToStr(FileSize(FromF))
        + ' bytes...');
      repeat
        System.BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
        BlockWrite(ToF, Buf, NumRead, NumWritten);
      until (NumRead = 0) or (NumWritten <> NumRead);
      // Use CloseFile rather than Close;
      // because Close is provided for backward compatibility.
      CloseFile(FromF);
      CloseFile(ToF);
      writeln(' done.');


  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);

  end;
       readln;
end.