Массив записей. Структура: наименование товара, его количество, цену за единицу товара и общую стоимость данного товара

program Tovar2;
const n=2;
type cat=record
   title: string[45];
   quantity: integer;
   price: real;
   sum: real;
end;
var tovar: array [1..n] of cat;
   i: integer;
begin
   for i:=1 to n do
   begin
      writeln ('Введите сведения о ', i , ' товаре');
      writeln ('Введите название товара');
      readln (tovar[i].title);
      writeln ('Введите количество товара');
      readln (tovar[i].quantity);
      writeln ('Введите цену за единицу');
      readln (tovar[i].price);
   end;
   writeln ('Ввод закончен');
   writeln;
   writeln ('Товар в наличии:');
   for i:=1 to n do
         begin
         tovar[i].sum:=tovar[i].quantity*tovar[i].price;
         writeln('Наименование: ', tovar[i].title, '; Количество: ',tovar[i].quantity,'; Цена за ед.: ',tovar[i].price,'; Общая стоимость товара: ',tovar[i].sum);
         end;
end.