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

var A, B: array[,] of integer;
    C: array of integer;
    n,i,k: integer;
begin
 read(n);
 A:= new integer[n,n];
 B:= new integer[n,n];
 C:= new integer[n];
 for i:=0 to n-1 do
  for k:=0 to n-1 do begin
   A[i,k]:=random(0,100);
   B[i,k]:=random(0,100);
  end;
 for i:=0 to n-1 do
  C[i]:=random(0,100);
 writeln('Размер A в байтах: ',sizeof(integer)*A.Length);
 writeln('Размер B в байтах: ',sizeof(integer)*B.Length);
 writeln('Размер C в байтах: ',sizeof(integer)*C.Length);
end.

var A, B: array[,] of integer;
    C: array of integer;
    n,i,k,q: integer;
begin
 read(n);
 A:= new integer[n,n];
 B:= new integer[n,n];
 C:= new integer[n];
 for i:=0 to n-1 do
  for k:=0 to n-1 do begin
   A[i,k]:=random(100);
   B[i,k]:=random(100);
  end;
 for i:=0 to n-1 do
  C[i]:=random(0,100);
 writeln('Размер A в байтах: ',sizeof(integer)*A.Length);
 writeln('Размер B в байтах: ',sizeof(integer)*B.Length);
 writeln('Размер C в байтах: ',sizeof(integer)*C.Length);
 writeln;
 writeln('Матрица А:');
 for i:=0 to n-1 do begin
  for k:=0 to n-1 do
   write(A[i,k]:3);
  writeln;
 end;
 C:= new integer[A.Length];
 for i:=0 to n-1 do
  for k:=0 to n-1 do begin
   C[q]:=A[i,k]; q+=1; 
  end;
 q:=0;
 for i:=0 to n-1 do
  for k:=0 to n-1 do begin
   A[k,i]:=C[q]; q+=1; 
  end;
 writeln;
 writeln('Матрица А^T:');
 for i:=0 to n-1 do begin
  for k:=0 to n-1 do
   write(A[i,k]:3);
  writeln;
 end;
end.

5
Размер A в байтах: 100
Размер B в байтах: 100
Размер C в байтах: 20
 
Матрица А:
 61 98 78 97 53
 22 23 96 54 46
 72 68 71 68 59
 54 41 17 54 36
 93 71 60 80  0
 
Матрица А^T:
 61 22 72 54 93
 98 23 68 41 71
 78 96 71 17 60
 97 54 68 54 80
 53 46 59 36  0