Составьте программу ,определяющую максимальный элемент и его индексы матрицы А размером 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.