Дана целочисленная матрица размером n*m, все элементы которой различны. в каждой строке выбирается элемент с наименьшим зн

дана целочисленная матрица размером n*m,все элементы которой различны.в каждой строке выбирается элемент с наименьшим зн
program pr;
uses crt;
var a,b:array[1..10,1..10] of integer
var i,m,i1,i2,j1,j2,n,r,t,j,k,l,max,g,min,x,z,w:integer;
begin
clrscr;
writeln('дана матрица n*m');
write('введите кол-во строк m=');
read(m);
for i:=1 to m do
for j:=1 to n do
begin
gotoxy(6*j,i+10);
read(a[i,j]);
end;
i:=1;j:=1;
for i:=1 to m do
for j:=1 to n do
if a[i,j]>min then min:=a[i,j];
for i:=1 to m do
for j:=1 to n do
begin
max:=a[i,j];
begin
i1:=i;
j1:=j;
end;
if a[i,j]max then begin
max:=a[i,j];
i2:=i;
j2:=j;
end;
end;
end;
end.

помогите пожалуйста как указать индексы элемента с найденным значением и куда вставить в саму программу

  • >помогите пожалуйста как указать индексы элемента с найденным значением
    поздно. Надо искать не значение, а индексы:
    if a[i,j]>min then min:=a[i,j];
    if a[i,j]>a[imin,jmin] then begin
    imin:=i;
    jmin:=j;
    end;