pascal的编程

输入4名学生数学、物理、英语、化学、pascal五门课的考试成绩，求出每名学生的平均分，打印出表格。
var a:array[1..4,1..7]of real; { 下标1学号，下标2某科成绩 }
i,j:integer; { 下标2多两列，分别存放总分、平均分 }
begin
fillchar(a,sizeof(a),0); { 用函数fillchar将数组a中所有元素置为0 }
writeln('Input 4 students score');
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
read(a[i,j]); a[i,6]:=a[i,6]+a[i,j]; { 读每科成绩时同时统计总分 }
end;
a[i,7]:=a[i,6]/5; { 求平均分 }
end;
writeln( 'No. Math Phy Eng Che Pas Total Average ');
for i:=1 to 4 do
begin
write(i,' ')