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

[satrianism]

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

[satrianism]

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

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;

[satrianism]

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