急！！！！！！！！pascal

来源：百度知道 编辑：UC知道 时间：2024/06/04 04:49:19
输入六位学生学号、姓名、性别、语文、数学、英语，计算总成绩，按总成绩从高到低排序输出（学号、姓名、性别和总成绩）。
如果有人的程序好，我一定+100分！
'王勃啊'的程序不对！

这道题不难
就是比较繁杂
var
a:array[1..5,1..6] of integer;
c:array[1..2,1..6] of string;
i,j:integer;
ch:char;
procedure swap(var k1,k2:integer);
var
t:integer;
begin
t:=k1;
k1:=k2;
k2:=t;
end;

procedure swap(var c1,c2:string);
var
c3:string;
begin
c3:=c1;
c1:=c2;
c2:=c3;
end;

procedure d(p,q:integer);
var
k:integer;
begin
for k:=1 to 5 do swap(a[k,p],a[k,q]);
for k:=1 to 2 do swap(c[k,p],c[k,q]);
end;

begin
for i:=1 to 6 do
begin
read(a[4,i]);read(ch);read(ch);
while ch<>' ' do
begin
c[1,i]:=concat(c[1,i],ch);
read(ch);
end;
read(ch);
while ch<>' ' do
begin
c[2,i]:=concat(c[2,i],ch);
read(ch);
end;
readln(a[1,i],a[2,i],a[3,i]);
a[5,i]:=a[1,i]+a[2,i]+a[3,i];
end;
for i:=1 to 5 do
for j:=i+1 to 6 do
if a