Написать программу, находящую среднее арифметическое каждого столбца матрицы — Pascal(Паскаль)

const m=5;n=6;
var a:array[1..m,1..n] of integer;i,j:integer;s:real;
begin
randomize;
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(20);
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
for j:=1 to n do
begin
s:=0;
for i:=1 to m do
s:=s+a[i,j];
s:=s/m;
writeln(s);
end;
readln;
end.