Xếp thứ hạng học sinh bằng pascal

TỰ DỘNG XẾP HẠNG HỌC SINH DỰA VÀO ĐIỂM TRUNG BÌNH
PROGRAM sothutu;
Uses crt;
VAR i,n,d,so:BYTE;
a:ARRAY[1..100] OF REAL;
s:ARRAY[1..100] OF BYTE;
max:REAL;
BEGIN
repeat
clrscr;
write(`Nhap so hoc sinh `);readln(n);
FOR i:=1 TO n DO BEGIN write(`diemtbHS[`,i:3,`]=`);readln(a[i]);END;
max:=a[1];d:=0;
FOR i:=2 TO n DO
BEGIN
IF a[i]>max THEN max:=a[i];
END;
FOR i:=1 TO n DO
IF a[i]=max THEN BEGIN s[i]:=1; d:=d+1; a[i]:=-100 END;
{loai nhung gia tri=max}
so:=d+1;
REPEAT
max:=-99;{dat gia tri khoi diem am vi co truong hop bo thi}
FOR i:=1 TO n DO IF a[i]>max THEN max:=a[i];
FOR i:=1 TO n DO IF a[i]=max THEN BEGIN s[i]:=so; d:=d+1; a[i]:=-100 END;
so:=d+1;
UNTIL d=n;
writeln(`Thu tu xep hang: `);
FOR i:=1 TO n DO writeln(`Hoc sinh_`,i:3,` Xep_thu: `,s[i]:3);
writeln;
write(`0 = thoat; 1 = tiep tuc`);read(n)
{go 0 va enter=thoat; 1 chu so khac=tiep tuc}
until n=0;{Ket thuc khi thoa man DK n=0}
readln
END.

Nhập điểm trung bình của các học sinh sau đó chương trình sẽ đưa ra thứ tự xếp hạng trong lớp.