Обработать таблицу "Расход основных материалов на выплавку 1т углеродистой мартеновской стали"

const goriz = '+---+----------------------+---------------+--------------+----------------+';
 
type ingred = record
                nazw: string[20];
                kol, cena, stoim: real
              end;
 
var rashod: array [1..6] of ingred =
       ((nazw: 'Чугун жидкий';     kol: 0.63;  cena: 27.4; stoim: 0),
        (nazw: 'Чугунный лом';     kol: 0.01;  cena:  7.5; stoim: 0),
        (nazw: 'Стальной лом';     kol: 0.35;  cena: 16;   stoim: 0),
        (nazw: 'Стальная стружка'; kol: 0.02;  cena: 13;   stoim: 0),
        (nazw: 'Ферромарганец';    kol: 0.007; cena: 97;   stoim: 0),
        (nazw: 'Ферросилиций';     kol: 0.012; cena: 48;   stoim: 0));
    itogo: real;
    n: integer;
 
begin
  itogo := 0;
  writeln('Расход основных материалов на выплавку 1т углеродистой мартеновской стали:');
  writeln(goriz);
  writeln('| № |       Материал       | Количество, т | Цена, руб./т | Стоимость, руб |');
  writeln(goriz);
  for n := 1 to 6 do
    with rashod[n] do
      begin
        stoim := kol * cena;
        writeln('| ', n, ' | ', nazw, ' ':20 - length(nazw), ' | ', kol:9:3, '     | ', cena:9:2, '    | ', stoim:10:2, '     |');
        itogo := itogo + stoim
      end;
  writeln(goriz);
  writeln('|   | ИТОГО:                                              | ', itogo:10:2, '     |');
  writeln('+---+-----------------------------------------------------+----------------+');
  readln
end.