пожалуйста,помогите решить задачу на Delphi

[maksimko]

Здравствуйте,нужна помощь в написании курсовика на Делфи3. Просьба,писать попроще,на уровне студента 1-го курса)
Задание:
Задать с помощью таблицы двумерный массив A[i,j] размером N*M. Вывести значение и пару номеров элемента, которые дальше всего от среднего значения этого массива.

Заранее огромное спасибо!

[Lemo]

program Laba3;
   {$APPTYPE CONSOLE}
uses SysUtils, math;
const m=5; n=3;
var MAS: array[1..m, 1..n] of byte;
    min,max: byte;
    i,j, k, o: integer;
    L: real;
begin
 randomize;
 for i:=1 to m do begin
  for j:= 1 to n do begin
   MAS[i,j]:= random(10);
   write(MAS[i,j]:2,' ');
  end;
  writeln;
 end;
 writeln('- - - - -');

 min:=1; max:=1;
 for i:=1 to m do
  for j:=1 to n do begin
   if MAS[i,j]<min then min:=MAS[i,j]; k:=i; o:=j;
   if MAS[i,j]>max then max:=MAS[i,j];
  end;
 L:=(min+max)/2;
 writeln('L = ',L:4:2);
 writeln('min = ',min);
 writeln('max = ',max);
 writeln('InDekSi=', k:2,'  and', o:3 );
 readln;
end.

[Вета]

Привет! Помогите решить задачу в Delphi...

Условие:
Из положительных элементов сформированных случайным образом массивов A 25 и D15 построить матрицу С 8 5 Если элементов в массиве не хватит заполнить оставшиеся места -1 В получившейся матрице элементы каждого столбца расположить в порядке возрастания их величин