Составить таблицу квадратов чисел от 0 до 100 и вычислить её минимальный информационный объём в байтах? ​

Var
    i, j, n, m: integer;
    s, t: real;
    a: array[1..100, 1..100] of integer;

begin
    randomize;
   
    readln(n, m);
   
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            a[i, j] := random(100);
            s := s + a[i, j];
            write(a[i, j]:3, ' ')
        end;
        writeln()
    end;
   
    s := s / n / m;
   
    writeln();
    for j := 1 to m do
    begin
        t := 0;
        for i := 1 to n do
            t := t + a[i, j];
           
        if t / n < s then
            write(j, ', ')
    end
end.

Type arr = array[1..10] of integer; {создаем новый тип, являющийся массивом}
var
  i:integer;
  s:real;
  R,Q,P:arr;                                 
  X:array[0..3] of integer;

function Sum(a: arr): integer;  {функция вычисления суммы элементов массива}
var i:integer; 
begin
foreach i in a do                   {вычисляем сумму элементов по заданному правилу}
  if (i>=2) and (i<=4) then Result :=Result+i
end;                                     {результатом функции будет сумма}

begin
randomize;          {заполняем массивы случайными числами}
for i:=1 to 10 do
  begin
  R[i]:=random(10);
  Q[i]:=random(10);
  P[i]:=random(10)
  end;
write('R: ');                 {распечатываем содержимое массивов на экране}
for i:=1 to 10 do write(R[i],' ');
writeln;
write('Q: ');
for i:=1 to 10 do write(Q[i],' ');
writeln;
write('P: ');
for i:=1 to 10 do write(P[i],' ');
writeln;           {а тут собственно само решение задачи}
X[1]:=Sum(R);{передаем в ф-цию Sum массив R, она считает сумму и записывает в Х1}
writeln('X[1]=',X[1]); 
X[2]:=Sum(Q);{передаем в ф-цию Sum массив Q, она считает сумму и записывает в Х2} 
writeln('X[2]=',X[2]); 
X[3]:=Sum(P);{передаем в ф-цию Sum массив P, она считает сумму и записывает в Х3} 
writeln('X[3]=',X[3])
end.