... clrscr; End; Thủ tục thứ hai,xoá chương trình sau số hữu hạn lần chạy Thủ tục dựa vào việcthay đổi ngày file để thực Trên file có lưu thông tinngày tạo file Ta sử dụng thủ tục Unpacktime, Packtime ... 00:01:00, lần chạy sau ta tăng lên phút va ghi lại trênfile nhờ thủ tục Setftime, đến lần chạy giới hạn thông báo gọithủ tục Erase để xoá file Tên file đọc nhờ hàm Paramstr(n=0).Bạn thay việc xoá ... file việc gọi lại thủ tục Nhap_mat_ma saocho hợp lí để đỡ phải dịch lại Thủ tục nên đặt cuối chương trình sau khiđã hoàn tất khâu xử lí Bạn thử thay việc tăng phút việc tăng giây xemhiện tượng...