Viết chương trình nhập và in danh sách lớp theo thứ tự điểm.

Viết chương trình nhập và in danh sách lớp theo thứ tự điểm.

Program dslop;
uses crt;
var  a:array[1..1000] of string;
     b:array[1..1000] of real;
     i,j,n:Integer;
     c1:string;
     c:real;
Begin
clrscr;
Write('Lop hoc co bao nhieu hoc sinh: '); Readln(n);
For i:=1 to n do begin
Write('Ten hoc sinh thu ',i,' : '); Readln(a[i]);
Repeat Writeln('Diem nay phai be hon 10');
Write('Nhap diem cua hoc sinh thu ',i,': ');Readln(b[i]);
until b[i]<=10;
end;
for i:=1 to n-1 do
for j:=i+1 to n do
If b[i]c:=b[i];
b[i]:=b[j];
b[j]:=c;
c1:=a[i];
a[i]:=a[j];
a[j]:=c1;
end;
Writeln('Danh sach lop theo thu tu dien la:');
For i:=1 to n do Writeln('Diem cua ',a[i],' la: ',b[i]:8:2);
Readln;
end.