[lmikle]

А где твой код? Или ты хочешь все готовенькое?

Хотя тут делов-то на 10 минут.
Где такие курсовики на 1м курсе (т.е. уже институт) дают???
Я пойду туда учиться!!! Буду появляться за 2 недели до сессии и все быстренько делать!!! И будет мне второй диплом

Общий код примерно такой:

Код:

var
  A : Array Of Array Of Integer; // Ну типа целочисленный.
  N, M : Integer; // Размерность массива.

// Создание массива случайным образом
procedure CreateArray;
var
  I, J : Integer;
begin
  SetLength(A,M); // строки
  For I := 0 To M-1 Do
    SetLength(A[i],N); // столбцы

  // инициализируем случайными числами от 0 до 99
  For I := 0 To M-1 Do
    For J := 0 To N-1 Do
      A[I,J] := Random(100);
end;

// Подсчет среднего арифметического
// Возвращаем целое число для простоты
function GetAverage : Integer;
var
  I, J : Integer;
begin
  Result := 0;
  For I := 0 To M-1 Do
    For J := 0 To N-1 Do
      Result := Result + A[I,J];
  Result := Round(Result / (M * N));
end;

// Коодрдинаты самомго"дальнего" элемента
procedure GetFarElement(Avg : Integer; var X, Y : Integer);
var
  D : Integer;
  I, J : Integer;
begin
  D := -1;
  X := -1;
  Y := -1;
  For I := 0 To M-1 Do
    For J := 0 To N-1 Do
      If Abs(A[I,J] - Avg) > D Then
        Begin
          X := J;
          Y := I;
          D := Abs(A[I,J] - Avg);
        End;
end;

Мог ошибиться где-то в именовании индексов.
А уж как это собрать в одну программу, которая делает то, что тебе надо - думай сам
Ну или дальше уже в платный раздел.