Посчитать общую стоимость товара — Pascal(Паскаль)

uses crt;

var
  numi, pricei, numii, priceii, numiii, priceiii, numiv, priceiv: integer;

begin
  clrscr;
  writeln('Введите количество и стоимость товаров I сорта кол-во и стоимость через Enter');
  readln(numi);
  readln(pricei);
  clrscr;
  writeln('Введите количество и стоимость товаров II сорта кол-во и стоимость через Enter');
  readln(numii);
  readln(priceii);
  clrscr;
  writeln('Введите количество и стоимость товаров III сорта кол-во и стоимость через Enter');
  readln(numiii);
  readln(priceiii);
  clrscr;
  writeln('Введите количество и стоимость товаров IV сорта кол-во и стоимость через Enter');
  readln(numiv);
  readln(priceiv);
  clrscr;
  writeln('сорт      ', 'кол-во      ', 'стоимость ед.      ', 'общ.стоимость');
  writeln('I         ', numi, pricei:12, numi * pricei:24);
  writeln('II        ', numii, priceii:12, numii * priceii:24);
  writeln('III       ', numiii, priceiii:12, numiii * priceiii:24);
  writeln('IV        ', numiv, priceiv:12, numiv * priceiv:24);
  writeln('Стоимость всех товаров ', numi * pricei + numii * priceii + numiii *
    priceiii + numiv * priceiv);

end.