học bản ghi chưa em.Dùng bản ghi để nhập dữ liệu đầu vào gồm các thuộc tính họ tên nam nữ vv.sau đó tạo mấy cái biến đếm mà đếm.Dùng If then kiểm tra nam nữ rồi tăng biến đếm.sử dụng thuật toán tìm max để tìm ra thằng có thành tích cao nhất.ví dụ nhé.Khai bản ghi là
type
HS =record
hoten :string[35];
lop:string[3];
thoigian:integer;
gioitinh:integer

cai nay nhap 0 vs 1 )
thế xong vào bài khai báo 1 cái array với kiểu dữ liệu là bản ghi.Nhập dữ liệu cho từng bản ghi bằng vòng lặp.vd
FOR i := 1 TO n DO
BEGIN
Write(' Họ tên : '); readln(hs[i].Hoten);
vv rồi sau đó tìm max cho trường hs.thoigian
thằng nào to nhất thì ứng với biến đếm i của nó đấy xuất ra dữ liệu của cả bản ghi hihi.
mấy cái kia dùng if then rồi tạo biến tính tổng lại so sánh.
nhìn chung là thế.Anh học visual basic nên cái này không thạo lắm.Sơ sơ như thế về mà tìm hiểu thêm.^^.Lập trình viên tương lai thì phải chịu khó lên chứ.