编辑代码

program StudentInfo(input,output);
Type 
    Student = record
        name:string;
        sex:integer;
        age:integer;
        nation:string;
        sumGrade:integer;
end;
var
    i,j,k,z,max,tempsum,tempsex,tempage:integer;
    tempname,tempnation:string;
    StudentArr:array[1..3] of Student;
begin
    for i:=1 to 3 do
    begin
        writeln('Student',i,' name is:');
        readln(StudentArr[i].name);

        writeln('Student',i,' sex is:');
        readln(StudentArr[i].sex);

        writeln('Student',i,' age is:');
        readln(StudentArr[i].age);

        writeln('Student',i,' nation is:');
        readln(StudentArr[i].nation);

        writeln('Student',i,' sumGrade is:');
        readln(StudentArr[i].sumGrade);

    end;
    for j:=1 to 3 do
    begin
        max:= StudentArr[j].sumGrade;
            for k:=j+1 to 30 do
            begin
                if StudentArr[i].sumGrade>StudentArr[j].sumGrade then
                begin
                    tempsum := StudentArr[i].sumGrade;
                    StudentArr[i].sumGrade:=StudentArr[j].sumGrade;
                    StudentArr[j].sumGrade:=tempsum;
                    
                    tempname := StudentArr[i].name;
                    StudentArr[i].name:=StudentArr[j].name;
                    StudentArr[j].name:=tempname;

                    tempnation := StudentArr[i].nation;
                    StudentArr[i].nation:=StudentArr[j].nation;
                    StudentArr[j].nation:=tempnation;

                    tempsex := StudentArr[i].sex;
                    StudentArr[i].sex:=StudentArr[j].sex;
                    StudentArr[j].sex:=tempsex;

                    tempage := StudentArr[i].age;
                    StudentArr[i].age:=StudentArr[j].age;
                    StudentArr[j].age:=tempage;


                end;
            end;
    end;
    for z:=1 to 3 do  
    begin
        write(StudentArr[z].name,' ');
        write(StudentArr[z].sex,' ');
        write(StudentArr[z].age,' ');
        write(StudentArr[z].nation,' ');
        write(StudentArr[z].sumGrade,' ');
        writeln();
    end;
end.