pascal写一个程序

program jilu;
const
n=30;
type
arraytype=record
name:string;
nianling:integer;
kecheng:string;
sorse:real;
end;
t1=array[1..n]of arraytype;
var
a:t1;
i,j,k:integer;
procedure sort(var a:t1);
var
temp:arraytype;
i,j:integer;
begin
for i:=1 to n do
for j:=i+1 to n do
if a[i]<a[j] then
begin
temp:=a[i];
a[i]:=a[j];
a[j]:=temp;
end;
end;
begin
for i:=1 to n do
with a[i] do
begin
readln(name);
readln(nianling,kecheng,sorse);
end;
sort(a);
for i:=1 to n do
with a[i] do
begin
writeln(i,':');
writeln('name:',name);
writeln('nianling:',niangling);
writeln('kecheng:',kecheng);
writeln('chengji:',chengji);
end;
end.

const n=30;
type
arraytype=record
name:string