编辑代码

program grade(input,output);
type 
  stu=record
  name:string;
  sex:string;
  age:integer;
  nation:string;
  sum:integer;
end;

const
  n=3;
var  
  s:array[1..3]of stu;
  ss:string;
  i,j,temp:integer;

begin
  for i:=1 to n do
    begin
    readln(s[i].name);
    readln(s[i].sex);
    readln(s[i].age);
    readln(s[i].nation);
    readln(s[i].sum);
    end;

for i:=1 to n do
  for j:=i+1 to n do
    if s[i].sum<s[j].sum then
    begin
    ss:=s[i].name;
    s[i].name:=s[j].name;
    s[j].name:=ss;
    ss:=s[i].sex;
    s[i].sex:=s[j].sex;
    s[j].sex:=ss;
    temp:=s[i].age;
    s[i].age:=s[j].age;
    s[j].age:=temp;
    ss:=s[i].nation;
    s[i].nation:=s[j].nation;
    s[j].nation:=ss;
    temp:=s[i].sum;
    s[i].sum:=s[j].sum;
    s[j].sum:=temp;
    end;

writeln('--Grade Ranking--');
for i:=1 to n do
writeln(s[i].name,' ',s[i].sex,' ',s[i].age,' ',s[i].nation,' ',s[i].sum);
end.