Матрицы. Найти среднее арифметическое

[Waia]

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

[eoln]

А это что такое?
http://programmersforum.ru/showthread.php?t=29174
http://programmersforum.ru/showthread.php?t=29235

const
  n = 3; m = 4;
var
  mas: array[1..n, 1..m] of real;
  i, j, k: integer;
  sr: real;
begin
  for j := 1 to m do
  begin
    for i := 1 to n do
    begin
      write('mas[', i, ',', j, '] = ');
      readln(mas[i, j])
    end;
    if mas[i, 1] > mas[i, m] then k := i;
    writeln
  end;

  for i := 1 to n do
  begin
    for j := 1 to m do write(mas[i, j]:6:2);
    writeln
  end;

  writeln;
  for i := 1 to m do sr := sr + mas[i, k];
  sr := sr / n;

  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      if j <> k then mas[i, j] := mas[i, j] - sr;
      write(mas[i, j]:6:2)
    end;
    writeln
  end;
  readln
end.