[Страдалецъ]

Так попробуй:

Код:

Max := A[1,1];
Min := A[1,1];
for i:= 1 to N 
do for j:=1 to M  
    do begin
        if Max < A[i,J] then Max := A[i,J];
        if Min > A[i,J] then Min := A[i,J];
        end;

Особенность работы Random требует такой записи:

Код:

A[i,j]:= random(MaxM+1)

Если вам надо при запуске программы получать каждый раз разные значения для random, то добавьте в начало программы:

Код:

Randomize;