Giúp mình cách đọc và ghi tệp một bài pascal với ạ

Khai báo biến tệp: var <tên biến tệp>: text;

Mở tệp: assign(<biến tệp>, '<tên tệp>');

Đọc tệp: reset(<biến tệp>); read/readln(<biến tệp>, <tên biến>);

Ghi tệp: rewrite(<biến tệp>); write/writeln(<biến tệp>, <nội dung>);

Ví dụ:

var f:text;

     a,b:longint;

begin

assign(f, 'test.inp'); reset(f);

read(f,a,b);

close(f);

assign(f, 'test.out'); rewrite(f);

write(f, a + b);

close(f);

end.

Đọc tệp: (biến tệp là f)

Assign(f,<tên têp>);

reset(f);

......

close(f);

Ví du: muốn đọc xâu S từ tệp f có tên XAU.TXT ta làm như sau:

Assign(f,'XAU.TXT');

reset(f);

read(f,S);

close(f);

Ghi tệp: (biến tệp là f)

Assign(f,<tên têp>);

rewrite(f);

......

close(f);

Ví dụ: muốn ghi xâu S vào tệp g có tên XAU.TXT ta làm như sau:

Assign(g,'XAU.TXT');

rewrite(g);

write(g,S);

close(g);