... writeln; sof:=sof+1; end; until eof(f); close(f); writeln('Da cat xong file: ',name); wrireln('Tong cong chia ra:',sof+1, 'file. '); END Dõch chûúng trònh vûâa soẩn tïåp cố ài EXE àïí sûã dng Chẩy ... sûã dng Chẩy chûúng trònh bùçng cêu lïånh sau tẩi dêëu múâi ca DOS: Trang VIETBOOK ·1 CUTF_tïn tïåp cêìn Cut_ tïn ưí àơa mïìm: Dêëu _ úã trïn àûúåc sûã dng àïí tûúång trûng cho dêëu cấch sûã dng ... extname:='0'+extname; assign(f1,drive[1]+':\'+name1+extname);rewrite(f1,1); if sof=0 then begin fs:=filesize(f); blockwrite(fl,fs,sizeof(fs); end df:=diskfree(ord(upcase(drive[l]))-64); if df...