[AlexSku]

Вот пример для нединамического массива, но ф-ии Low и High находят границы и для дин. массива.

Код:

type
  ta = array[1..10] of Integer;
var
  a: ta;
  b: array[1..10] of ta;

procedure TForm1.Button1Click(Sender: TObject);
var bi, aj, c: Integer;
begin
  Randomize;
  c:= 0;
  for bi:= Low(b) to High(b) do
  for aj:= Low(a) to High(a) do
  begin
    b[bi][aj]:= Random(100);
    Inc(c);
  end;
  ShowMessage(IntToStr(c));
end;