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

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]gt;max then begin max:=a[i,j]; indexmax:=inttostr(i)+' '+inttostr(j); end;
  if a[i,j]lt;min then begin min:=a[i,j]; indexmin:=inttostr(i)+' '+inttostr(j); end;
 end;

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