исправить ошибку в программе на двумерный массив

[Катакомба]

надо,чтобы программа выводила среднее арифметическое каждого столбца.
но я ума не приложу как это сделать

for j := 1 to m do
         for i := 1 to n do

         sum:=a[j,n-1]+a[1,n-1];
         sr:=sum/m;
          writeln('sum= ',sum:8:2);
          writeln('sr= ',sr:8:2);
          readln;

то,что я написала считает только первый столбец и только в массиве 2*2.
помогите,как исправить?

[VadikV]

всего лишь нужно begin и end поставить и немного подправить код

for j := 1 to m do begin
      sum := 0;
      for i := 1 to n do
             sum:=sum + a[i,j];
      sr:=sum/n;
      writeln('sum= ',sum:8:2);
      writeln('sr= ',sr:8:2);
end;
readln;

[Катакомба]

а как написать эту строчку

sum:=a[j,n-1]+a[1,n-1];

чтобы он правильно считал все элементы столбца?

[Катакомба]

никто не знает?

[олег123321]

Сообщение от Катакомба

а как написать эту строчку

sum:=a[j,n-1]+a[1,n-1];

чтобы он правильно считал все элементы столбца?

эта строка бред какой то , тебе уже готовый код дали, где её заменили на sum:=sum + a[i,j];