Определить, сколько места занимает в динамической памяти данный массив

var a:array[,] of integer;
    n,i,j,sp,sd,mx:integer;
begin
randomize;
writeln('Введите размер матрицы');
readln(n);
setlength(a,n,n);
writeln('Объем памяти под матрицу=',sizeof(integer)*n*n,' байт');
sd:=0;
writeln('Исходная матрица');
mx:=a[0,0];
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
   begin
    a[i,j]:=1+random(10);
    write(a[i,j]:3);
    if j>n-i-1 then sd:=sd+a[i,j];//ниже побочной диагонали
    if ((i=0)or(j=n-1))and(a[i,j]>mx) then mx:=a[i,j];//максимум
   end;
  writeln 
 end;
sp:=0;
for i:=0 to n-2 do
sp:=sp+a[0,i]+a[i,n-1]+a[i+1,0]+a[n-1,i+1];//периметр
writeln('Сумма элементов периметра=',sp);
writeln('Сумма элементов ниже побочной диагонали=',sd);
writeln('Максимальный элемент первой строки и последнего столбца=',mx) 
end.