I finally figured out how to do this with block read and block write. Looks something like this:
Code:
var f1,f2:file;
cnt:integer;
assignfile(f1,infile);
reset(f1,100000);
while not eof(f1) do begin
blockread(f1,ch,1,cnt);
assignfile(f2,outfile);
rewrite(outfile,100000);
blockwrite(f2,ch,cnt);
end;