... 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< ;20 000 then begin blockread(f,buf,df);i:=df; ... sof:=sof+1; end; until eof(f); close(f); writeln('Da cat xong file: ',name); wrireln('Tong cong chia ra:',sof+1,&apos ;file. '); END. Dừch chỷỳng trũnh vỷõa soaồn ra tùồp coỏ ... blockwrite(f1,buf,i); write('.'); df:diskfree(ord(upcase(drive[l]))-64); if df0 then begin if df< ;20 000 then begin blockread(f,buf,df);i:=df; end else blockread(f,buf,sizeof(buf),i); end; end;...