大家帮我设计一个pascal程序好不？

这个程序很简单，自己来做
提示：
设置10个变量，在一开始输入并赋值；
再用一个变量赋值为平均分；
用if语句来判断学生的等级，逐一判断输出。

type
Tstu = record
stunum : Integer;
score : Double;
end; //定义学生类型结构体.
---------------------------
var
st : array[1..10] of Tstu;//存放十个学生的输入
i : Integer;
sum, j : Double;
----------------------------------------------
sum := 0;
for i := 1 to 10 do
begin
readln(st[i].stunum, st[i].score);
sum := sum + st[i].score;
end;
---------------------------------------
writeln('平均分:', sum / 10);
---------------------------------------
for i:=1 to 10 do
begin
j := st[i].score - sum/10;
if j<0 then
writeln(st[i].stunum, 'C')
else if (j>0) and (j<10) then
writeln(st[i].stunum, 'B')
else writeln(st[i].stunum, 'A');
end;

定义一个长为10的数组，用来输入成绩。定义一个变量sum，初始化为0。每输入一个成绩时，sum就加上那个成绩。成绩输完后，sum