В каждой строке и столбце найти количество элементов, больших и меньших среднего арифметического всех элементов этой строки и столбца.

program Matrix;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
// матрица размером 5 x 10
var
  M: array [1..5, 1..10] of Integer;
 
// это вместо ввода с клавиатуры
// заполнить матрицу случайными числами от 1 до 100
procedure InputMatrix;
var
  i, j: Integer;
begin
  Randomize;
  for i := 1 to 5 do
    for j := 1 to 10 do
    begin
      M[i, j] := Random(100) + 1;
    end;
end;
 
// среднее арифмерическое заданной строки
// nR - номер строки матрицы для которой нужно определить ср. арифм.
function AvgRow(nR: Integer): Double;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to 10 do
    Result := Result + M[nR, i];
  Result := Result / 10;
end;
 
// среднее арифмерическое заданного столбца
// nC - номер столбца матрицы для которой нужно определить ср. арифм.
function AvgCol(nC: Integer): Double;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to 5 do
    Result := Result + M[i, nC];
  Result := Result / 5;
end;
 
// ищет кол-во элементов меньше заданного N
// в строке матрицы с номером nR
function FindMinInRow(N: Double; nR: Integer): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to 10 do
    if N > M[nR, i] then
      Result := Result + 1;
end;
 
// ищет кол-во элементов больше заданного N
// в строке матрицы с номером nR
function FindMaxInRow(N: Double; nR: Integer): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to 10 do
    if N < M[nR, i] then
      Result := Result + 1;
end;
 
// ищет кол-во элементов меньше заданного N
// в столбце матрицы с номером nC
function FindMinInCol(N: Double; nC: Integer): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to 5 do
    if N > M[i, nC] then
      Result := Result + 1;
end;
 
// ищет кол-во элементов больше заданного N
// в столбце матрицы с номером nC
function FindMaxInCol(N: Double; nC: Integer): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to 5 do
    if N < M[i, nC] then
      Result := Result + 1;
end;
 
// печать на экран результата строки
procedure PrintRowAndResult(nR: Integer; Avg: Double; Min, Max: Integer);
var
  i: Integer;
begin
  for i := 1 to 10 do
    Write(M[nR, i]:3, ' ');
  Write ('   ');
  Write('Avg = ', Avg:3:2, ' ');
  Write('Min = ', Min, ' ');
  Write('Max = ', Max, ' ');
  Writeln;
end;
 
// печать на экран результата столбца
procedure PrintColAndResult(nC: Integer; Avg: Double; Min, Max: Integer);
var
  i: Integer;
begin
  for i := 1 to 5 do
    Write(M[i, nC]:3, ' ');
  Write ('   ');
  Write('Avg = ', Avg:3:2, ' ');
  Write('Min = ', Min, ' ');
  Write('Max = ', Max, ' ');
  Writeln;
end;
 
var
  k, n, Min, Max: Integer;
  Avg: Double;
 
begin
  InputMatrix;
  Writeln('Results in rows:');
  for k := 1 to 5 do
  begin
    Avg := AvgRow(k);
    Min := FindMinInRow(Avg, k);
    Max := FindMaxInRow(Avg, k);
    PrintRowAndResult(k, Avg, Min, Max);
  end;
  Writeln('Results in columns:');
  for k := 1 to 10 do
  begin
    Avg := AvgCol(k);
    Min := FindMinInCol(Avg, k);
    Max := FindMaxInCol(Avg, k);
    PrintColAndResult(k, Avg, Min, Max);
  end;
  Readln;
end.