Помогите, пожалуйста решить задачку!!! (Pascal)

Uses crt;
Var
M : Array [1..100,1..100] of Real;
N : Integer;

Procedure Init;
var i,j : integer;
begin
Writeln('Input N');
Readln(N);
Randomize;
For i := 1 to N do
For j := 1 to N do
M[i,j] := Random+Random(100)-50
End;

Procedure Out;
var
i,j : Integer;
begin
For i := 1 to n do
begin
for j := 1 to n do
Write(M[i,j]:3:3,' ');
writeln;
end;
end;

Procedure Find;
var
a : Array [1..100] of Real;
i,j : Integer;
min : Real;
Begin
For i := 1 to N do
begin
min := M[i,1];
For j := 1 to N do
If min > M[i,j] then min := M[i,j];
a[ i] := min;
end;
Min := A[1];
j := 0;
For i := 2 to N do
If Min < A[i ] then begin Min := a[i ]; j := i end;
writeln;
writeln;
For i := 1 to n do write(a[i ]:3:3,' ');
writeln;
writeln('Max From Min is ',Min :3:3,' ,its index = ',j);
End;

begin
clrscr;
init;
clrscr;
out;
writeln;
find;
readln;
end.

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

ну в принципе можно вот так, если учесть что матрица MAS дана и заполнена:
MAS - сама матрица
n - размерность

Код:
/// - здесь должен был быть код - //////

из-за непонятных ограничений маил. ру, код корректно не вставляется, так что помочь тебе не смогу )