Найти номер строки и столбца максимального элемента двумерного массива целых чисел размерности 3*4. ЗАПОЛНЕНИЕ МАССИВА ОСУЩЕСТВИТЬ С КЛАВИАТУРЫ

const n=3; m=4;var a:array[1..n,1..m] of integer;i,j,max,imax,jmax:integer;beginwriteln('Введите массив:');for i:=1 to n do for j:=1 to m do read(a[i,j]);max:=a[1,1]; imax:=1; jmax:=1;for i:=1 to n do for j:=1 to m do  if a[i,j]>max then   begin max:=a[i,j]; imax:=i; jmax:=j; end;writeln('max = a[',imax,',',jmax,'] = ',max);end.Пример:Введите массив:12 45 85 5037 54 91 6723 49 77 16max = a[2,3] = 91