Ну среднее арифметическое - это такой принципе:
SARS := 0;
For i := 1 to n do
     Begin
     summ := 0;
     count := 0;  
     For j := 1 to n do
          Begin
          if (a[j,i] < 0) then  
              Begin
              Inc(count); {увеличиваем счётчик положительных элементов столбца}
              summ := summ + a[j,i]; {прибавляем его к сумме}
              End;
          End;
     SAR := summ / count; {находим среднее арифметическое каждого столбца. число Real}
     Writeln('Среднее арифметическое ',i,'-го столбца: ',SAR:0:3);
     if (SAR > 1) then inc(SARS); {если больше 1, то увеличиваем счётчик}
     End;
Writeln('Количество столбцов со средним арифметическим > 1: ',SARS);

var n,i,j,p{число столбцов, среднее арифметическое которых >1},k{счетчик положительных элементов столбца}:integer;
summ{сумма положительных элементов столбца},sr{среднее арифметическое каждого столбца}:real;
a:array [1..5,1..5] of real;
begin
writeln('input n');
readln(n);
writeln('input a ',n,'*',n);
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);

p:= 0;
For i := 1 to n do
Begin
summ := 0;
k := 0;
For j := 1 to n do
Begin
if (a[j,i] > 0) then
Begin
Inc(k);
summ := summ + a[j,i];
SR := summ / k;
End;
end;
Writeln('sr ',i,'-go stolbza: ',SR:6:3);
if (SR > 1) then inc(p);
End;
Writeln('p: ',p);
readln
end.