Дан двумерный массив размером найти мин.элемент найти количество элементов равных этому во всем масиве

var i,j,k,min:integer;     a:array[1..10,1..10] of integer; begin  randomize;  for i:=1 to 10 do   for j:=1 to 10 do    a[i,j]:=random(15)+1;  min:=a[1,1];  for i:=1 to 10 do   for j:=1 to 10 do    if a[i,j]