... tệp?HS: Close (tep) ;END.Ví dụ 3 : (SGK- 87)Program vidu3;Uses crt;Var tep : TEXT; d : real; x,y : Integer;BEGIN Clrscr; ASSIGN (tep, ‘TRAI.INP’); RESET (tep) ; While not eof (tep) do Begin ... Readln(a,b); Write (tep, a,b); Close (tep) ; Readln;END.Ví dụ 2: Vi t chương trình mở tệp Songuyen.txt , in 2 số a, b trong tệp ra màn hình. Program Vidu2;Uses crt;Var tep: TEXT; a,b: Integer;Begin ... TEXT; a,b: Integer;Begin Clrscr; ASSIGN (tep, 'D:\TP\Songuyen.txt’); RESET (tep) ; Begin Readln (tep, a,b); Writeln(a,b); End; Close (tep) ; Readln;-Read(<tªn_biÕn_tÖp>,<danh_s¸ch_biÕn>);-Write(<tªn_biÕntÖp>,<danh_s¸ch_kÕtqu¶>);-...