برنامه پاسکال چاپ معدل بالای 17

سلام .یه برنامه پاسکال برای پروژه باید بنویسم ولی بلد نیستم کسی اگه با پاسکال کار کرده و بلده ممنون میشم کمک کنه/:11::40:
-برنامه ای که تعداد دانشجویان کلاس را دریافت کرده بعد نام و تعداد دروس هر دانشجو به همراه تعداد واحد ها و نمره هر درس دریافت کرده،
-در خروجی نام دانشجویانی که معدل بالای 17 دارند را چاپ کند.:46::46:

سلام این برنامشه ایراد داره.

type
Arn0=array[1..24,1..2]of real;
rec:recond
name:string[20]
unit:int
td:int
nu of d:Arno
avrage:teal
end;
class=array[1..100] of rec;
var a,i,j:integer b,c:real
begin
for i:=1 to 100 do
begin
readln(class[i].name);
readln(class[i].unit);
readln(class[i].td);
a:=class[i].td;
c:=0
for t:=1 to a do
begin
readln(class[i].nu of d[j,1])
readln(class[i].nu of d[j,2])
b:=class[i].nu of d[j,1]*class[i]nu of d[j,2]
c:=b+c
end;{for j}
class[i]avrage:=c/class[i].unit;
end;{for i}
for i:1 to 100 do
begin
if class[i].avrage>17 then
writeln(class[i].num);
end;
end;

یه برنامه نویس نیست بتونه ایراداشو برطرف کنه؟؟؟کمک:42: