... end; writeln; writeln(' :-- -- - -- - -- - -- - -- - -- - -- - -- - -- - -- - -- - -- - -- : '); writeln(':Ho va Ten :'); writeln(' :-- -- - -- - -- - -- - -- - -- - -- - -- - -- - -- - -- - -- - -- : '); while not eof(f) ... writeln(':',ho,' ':30-length(ho),ten,' ':10-length(ten),':'); end; writeln(' :-- -- - -- - -- - -- - -- - -- - -- - -- - -- - -- - -- - -- - -- : '); close(f); end; begin repeat ... Đọc thông tin của các học sinh từ tập tin HOSO.txt xuất ra màn hình (2 đ) program hoso; type hs=record ho:string[30]; ten:string[10]; end; var 3/5 Hội Thi Tin Học Trẻ Huyện Dĩ An 2009 f: file...