Ввести информацию о товаре (наименование, цена, количество, поле стоимость рассчитать как цена* количество). Вывести итоговую стоимость каждого товара — Pascal(Паскаль)

Program zap_4;

Uses Crt;

Const
  n = 10;

Type
  tovar = record
    name: string[20];
    stoim, cena: real;
    kol: integer;
  end;

Var
  a: array [1 .. n] of tovar;
  i: byte;

BEGIN
  ClrScr;
  for i := 1 to n do
  begin
    Writeln('Наименование товара ', i);
    Readln(a[i].name);
    Writeln('Цена');
    Readln(a[i].cena);
    Writeln('Количество');
    Readln(a[i].kol);
    a[i].stoim := a[i].cena * a[i].kol;
  end;
  for i := 1 to n do
    Writeln(a[i].name:20, ’ ‘, a[i].stoim:4:2);
  Readln;

end.