Найти среднеарифметическое каждого из столбцов и количество столбов, у которых среднеарифметическое больше элемента побочной диагонали

const n=10;
var
mas:array[1..n,1..n] of integer;
srmas:array[1..n] of real;
i,j,m:integer;
sr:real;
BEGIN
  randomize;
  writeln('Матрица:');
  for i:=1 to n do
    begin
    for j:=1 to n do
      begin
      mas[i,j]:=random(51);
      write(mas[i,j]:3);
      end;
    writeln;
    end;
  for j:=1 to n do
    begin
    sr:=0;
    for i:=1 to n do
      sr:=sr+mas[i,j];
    srmas[j]:=sr/n;
    if srmas[j]>mas[j, n-j+1] then
      inc(m);
    end;
  writeln('Среднеарифметическое каждого столбца матрицы:');
  for i:=1 to n do
    write(srmas[i]:7:2);
  writeln;
  writeln('Кол-во столбцов, у которых ср.арифм. больше элемента побоч. диагонади=',m,'.');
  readln;
END.

const n=30;
var
mas:array[1..n] of integer;
i,x:integer;
BEGIN
  randomize;
  writeln('Массив:');
  for i:=1 to n do
    begin
    mas[i]:=random(11);
    write(mas[i]:3);
    if (i mod 10 =0) then writeln;
    end;
  for i:=3 to n-1 do
    x:=mas[i-2]-mas[i-2]*mas[i-1]+mas[i-2]*mas[i-1]*mas[i]-mas[i-2]*mas[i-1]*mas[i]*mas[i+1];
  writeln('X=',x);
  readln;
END.