Как узнать сумму массива, если он постоянно увеличивается?

const n=2;
type cat=record
   title1,title2,title3: real;
   price: real;
   sum: real;
   allprice: real;
   allp: real;
end;
var tovar: array [1..2] of cat;
   i,a: integer;
begin
for i:=1 to 2 do
   begin
      writeln ('Введите сведения о ', i , ' магазине');
      writeln ('Количество проданного товара за январь');
      readln (tovar[i].title1);
      writeln ('Количество проданного товара за февраль');
      readln (tovar[i].title2);
      writeln ('Количество проданного товара за март');
      readln (tovar[i].title3);
      writeln ('Цена за штуку');
      readln (tovar[i].price);
      
   end;
   writeln;
   for i:=1 to 2 do
         begin
         tovar[i].sum:=tovar[i].title1+tovar[i].title2+tovar[i].title3;
         tovar[i].allprice:=tovar[i].sum*tovar[i].price;
         writeln('Продано товара за квартал в ', i , ' магазине: ', tovar[i].sum:0:0, 
         ' Выручка ', i , ' магазина: ',tovar[i].allprice:0:0);
         
         end;
------------------------
tovar[i].allp:=0;         
for i:=1 to 2 do tovar[i].allp:=tovar[i].allp+tovar[i].allprice;
begin
writeln('Общая выручка: ',tovar[i].allp:0:0);
end;
end.