Попробуй так:
const nmax=100;
var
a: array[1..nmax,1..nmax] of integer;
i,j,m,n,min,max,i_max,j_max,i_min,j_min,tmp: integer;
begin
randomize;
write('Введите размеры массива m, n: ');
readln(m,n);
writeln('Исходная матрица:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(99)+1;
write(a[i,j]:4);
end;
writeln;
end;
writeln;
min:=a[1,1]; max:=a[1,1];
i_min:=1; j_min:=1; i_max:=1; j_max:=1;
for i:=1 to m do
for j:=1 to n do
begin
if a[i,j]>max then
begin
max:=a[i,j];
i_max:=i;
j_max:=j;
end;
if a[i,j]