Помогите с задачей по Pascal - тема Матрицы!!!

[bilba]

Плиз, помогите с задачей! Не могу вникнуть!

Все максимальные элементы в столбцах вещественной
матрицы размером m х n заменить нулями. Из
строки, которая содержит минимальный элемент, вы-
честь его значение.

[Sazary]

Помогаю вникнуть.

Внешний цикл - по столбцам.
Внутренний - по элементам столбца. Ищем максимум.
Заменяем максимум нулем.

Проходим по всей матрице. Ищем минимум. Запоминаем его индексы.
В цикле проходим по строке с этим индексом вычитаем из элементов значение минимума.

[Lemo]

const m=5; n=3;
var MAS: array[1..m, 1..n] of byte;
    min,max: byte;
    i,j: 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;
 readln;
 end.

Часть программы, остальное допишешь!

[bilba]

Сообщение от Lemo

const m=5; n=3;
var MAS: array[1..m, 1..n] of byte;
    min,max: byte;
    i,j: 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;
 readln;
 end.

Часть программы, остальное допишешь!

А что дальше, плиз помоги!