Помогите с двухмерными массивами

[Dimati87]

Для матрицы D(m,n), 1<(m, n)<10,напечатать индексы минимального элемента массива и его значение

[Levsha100]

Наработки есть?

const
 m=5;
 n=5;
var
 A:Array[m,n] of integer;
 i,j:byte;
 min,minX,minY:integer;
begin 
  for j:=1 to n do
   for i:=1 to m do
    A[i,j]:=Random(50);
  min:=A[1,1];
  minX:=1;
  minY:=1;
  for j:=1 to n do
   for i:=1 to m do
     if A[i,j]<min then
     begin
       min:= A[i,j];
       minX:=i;
       minY:=j;
     end;

[Dimati87]

нет никаких