program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  fout: textfile;
  buf: char;

begin
  { TODO -oUser -cConsole Main : Hier Code einfügen }
  if ParamCount <> 1 then exit;
  //Input ist schon offen, also brauchen wir es nicht zuzuweisen
  SetLineBreakStyle(Input, tlbsLF); // weil sonst 0D auf Windows zu 0D0A ersetzt wird
  Reset(Input);
  AssignFile(fout, ParamStr(1));
  SetLineBreakStyle(fout, tlbsLF);
  Rewrite(fout);
  while not eof(Input) do
  begin
    read(Input, buf);
    write(fout, buf);
  end;
  CloseFile(fout);
end.