编辑代码

program StudentRecords;  
  
type  
    Student = record  
        name: string;  
        gender:string;  
        age: integer;  
        ethnicity: string;  
        totalScore: real;  
    end;  
  
var  
    students: array[1..5] of Student; 
    n: integer;  
    i, j: integer;  
    temp: Student;  
  
begin  
    write('请输入学生人数: ');  
    readln(n);  
  
    for i := 1 to n do  
    begin  
        writeln('请输入第', i, '个学生的姓名: ');  
        readln(students[i].name);  
        writeln('请输入性别: ');  
        readln(students[i].gender);  
        writeln('请输入年龄: ');  
        readln(students[i].age);  
        writeln('请输入民族: ');
        readln(students[i].ethnicity);  
        writeln('请输入总成绩: ');  
        readln(students[i].totalScore);  
    end;  
  
    
    for i := 1 to n-1 do  
        for j := 1 to n-i do  
            if students[j].totalScore < students[j+1].totalScore then  
            begin  
                temp := students[j];  
                students[j] := students[j+1];  
                students[j+1] := temp;  
            end;  
        end;  
  
    write('按总成绩排序后的学生信息如下:');  
    for i := 1 to n do  
    begin  
        writeln('姓名:', students[i].name,' 性别:', students[i].gender,' 年龄:', students[i].age, ' 民族:', students[i].ethnicity, ' 总成绩:', students[i].totalScore);  
        writeln();
    end;   
end.