[lmikle]

1. Код выкладывай в теле сообщения в тегах code.
2. Как так можно написать твое задание, что оно не работает?

Код:

var
  A : Array Of Array Of Integer;
  I, J : Integer;
  Amin : Integer;
begin
  // Устанавливаем размеры массива
  SetLength(A,10,10);

  // Инициализируем массив случайным образом
  For I := Low(A) To High(A) Do
   For J := Low(A[I[) To High(A[i]) Do
     A[I,J] := Random(1000);

  // Ищем min элемент
  Amin := A[0,0];
  For I := Low(A) To High(A) Do
   For J := Low(A[I[) To High(A[i]) Do
     If A[I,J] < Amin Then Amin := A[I,J];

  // Показываем результат
  showMessage('Amin = '  + IntTostr(Amin));
end;

Все.