Составьте программу, определяющую максимальный элемент и его индексы матрицы А размером M x N

Var a:array[1 ... 10,1 ... 10]of integer; неудобно var a:array[1 ... 10,1 ... 10]of integer;

max, i1, j1, i, j, k, m, n:integer;

begin

readln (m, n) ;

for i:=1 to m do

for j:=1 to n do

readln (a[i, j]) ;

max:=a[1,1];

i1:=1;

j1:=1;

for i:=1 to m do begin

for j:=1 to n do begin

if a[i, j]>max then begin max:=a[i, j]; i1:=i; j1:=j; end;

end;

end;

writeln (max,' ', i1,' ', j1) ;

end.