Не могу написать программу Двумерный массив

[Sing]

Приношу извинения если не там пишу!!!
Люди помогите решить задачу на TurboPascale!!!Задана матрица А(10;10). Найти min элемент и вывести все пары индексов элементов равных min элементу и подсчитать их количество. Помогите ПОЖАЛУЙСТА!!!

[Ghost of Night]

В чем проблема?) Банальный перебор, Сначала для поиска минимального, а потом для сравнения и подсчета. Итого - 200 проходов цикла)
P.S. можно сделать и меньше, но немного сложней)

[Sing]

Массив не могу написать. Давно просто не писал программы.

[whatever]

Сообщение от Sing

Массив не могу написать. Давно просто не писал программы.

type
  arr=array[1..10,1..10] of integer;
var
  a:arr;
  i,j:integer;
begin
  randomize;
  for i:=1 to 10 do
    for j:=1 to 10 do
      a[i,j]:=random(100)-50;
end.

[Sing]

спасибо Огромное!!!