1. read(s1,s2); => readln(f,s1); readln(f,s2);
Vì khi đọc dữ liệu thì phải có đọc ở tệp nào
và s1,s2 là string... khi đọc dữ liệu string sẽ đọc toàn bộ kí tự của dòng đó nên không thể vừa gán cho s1 và s2 trong 1 câu lệnh read;
2. write(f,s1) -> write(g,s1);
Vì g là tệp rewrite
3. close(f2) -> close(g)
==> thực hiện: ghi xâu dài hơn ra tệp cau2.out