Найти средние армфметические значения элементов столбцов двумерного массива. Программа в Паскале

const nx=30; var i,j,n,m:integer;A:array[1..nx,1..nx] of integer;B:array[1..nx] of real; Sn:real; begin  Write('Введите размер массива ');Readln(n); for j:=1 to n do begin for i:=1 to n do begin A[i,j]:=random(100)-2; m:= m + A[i,j];end; Sn:= m/n;B[j]:= Sn;Sn:= 0.0;m:=0;end; for i:=1 to n do begin for j:=1 to n do begin write(A[i,j]:9);end; writeln;end; for j:=1 to n do  write(B[j]:9:4);end.