奖学金

前言
“成功三要素：1坚持;2不要脸;3坚持不要脸。”。欢迎来到嘟嘟课堂。今天，嘟嘟老师讲一道淼题——奖学金。
题目描述
某小学最近得到了一笔赞助，打算拿出其中一部分为学习成绩优秀的前5名学生发奖学金。期末，每个学生都有3门课的成绩:语文、数学、英语。先按总分从高到低排序，如果两个同学总分相同，再按语文成绩从高到低排序，如果两个同学总分和语文成绩都相同，那么规定学号小的同学 排在前面，这样，每个学生的排序是唯一确定的。
任务：先根据输入的3门课的成绩计算总分，然后按上述规则排序，最后按排名顺序输出前五名名学生的学号和总分。注意，在前5名同学中，每个人的奖学金都不相同，因此，你必须严格按上述规则排序。例如，在某个正确答案中，如果前两行的输出数据(每行输出两个数:学号、总分) 是:
7 279
5 279
这两行数据的含义是:总分最高的两个同学的学号依次是7号、5号。这两名同学的总分都是 279 (总分等于输入的语文、数学、英语三科成绩之和) ，但学号为7的学生语文成绩更高一些。如果你的前两名的输出数据是:
5 279
7 279
则按输出错误处理，不能得分。
输入
输入文件scholar.in包含n+1行:
第1行为一个正整数n，表示该校参加评选的学生人数。
第2到n+1行，每行有3个用空格隔开的数字，每个数字都在O到100之间z第1行的3个数 字依次表示学号为j-1的学生的语文、数学、英语的成绩。每个学生的学号按照输入顺序编号为l~n (恰好是输入数据的行号减1)。
所给的数据都是正确的，不必检验。
输出
输出文件scholar.out共有5行，每行是两个用空格隔开的正整数，依次表示前5名学生的学号和总分。
样例输入1
6
90 67 80
87 66 91
78 89 91
88 99 77
67 89 64
78 89 98
样例输出1
6 265
4 264
3 258
2 244
1 237
样例输入2
8
80 89 89
88 98 78
90 67 80
87 66 91
78 89 91
88 99 77
67 89 64
78 89 98
样例输出2
8 265
2 264
6 264
1 258
5 258
数据范围限制
50%的数据满足:各学生的总成绩各不相同 100%的数据满足: 6<=n<=300
思路
直接暴力枚举。排序后输出即可。注意排序的具体要求。
代码

var
        a,b,c:array[1..300] of longint;
        i,j,n,p:longint;
begin
        assign(input,'scholar.in');reset(input);
        assign(output,'scholar.out');rewrite(output);
        read(n);
        for i:=1 to n do begin
                read(a[i],b[i],c[i]);
                b[i]:=a[i]+b[i]+c[i];
                c[i]:=i;
        end;
        for i:=1 to n-1 do
        begin
                for j:=i+1 to n do
                begin
                        if (b[i]<b[j]) then
                        begin
                                p:=a[i];
                                a[i]:=a[j];
                                a[j]:=p;
                                p:=b[i];
                                b[i]:=b[j];
                                b[j]:=p;
                                p:=c[i];
                                c[i]:=c[j];
                                c[j]:=p;
                        end;
                        if (b[i]=b[j]) and (a[i]<a[j]) then
                        begin
                                p:=a[i];
                                a[i]:=a[j];
                                a[j]:=p;
                                p:=b[i];
                                b[i]:=b[j];
                                b[j]:=p;
                                p:=c[i];
                                c[i]:=c[j];
                                c[j]:=p;
                        end;
                        if (b[i]=b[j]) and (a[i]=a[j]) and (c[i]>c[j]) then
                        begin
                                p:=a[i];
                                a[i]:=a[j];
                                a[j]:=p;
                                p:=b[i];
                                b[i]:=b[j];
                                b[j]:=p;
                                p:=c[i];
                                c[i]:=c[j];
                                c[j]:=p;
                        end;
                end;
        end;
        for i:=1 to 5 do
                writeln(c[i],' ',b[i]);
        close(input);
        close(output);
end.