Напишите программу,которая находит минимальный и максимальный элементы матрицы и их индексы

A матрица(массив)
m и n границы матрицы
min:integer; минимальное. indexmin:string
max:integer; максимальное. indexmax:string

min:=a[1,1]; 
max:=a[1,1];

for i:=1 to n do
 for j:=1 to m do begin
  if a[i,j]>max then begin max:=a[i,j]; indexmax:=inttostr(i)+' '+inttostr(j); end;
  if a[i,j]<min then begin min:=a[i,j]; indexmin:=inttostr(i)+' '+inttostr(j); end;
 end;

writeln(max,indexmax);
writeln(min,indexmin);