{
Записи.
Разработал : Асташкин Максим.
Дата написания : 01.11.17.
Проверил : Ст.Преподаватель Конев В.А.
Переменные : det- массив записей(деталей).
}
Program lab17;
 uses
    crt;
  Const
    nmax = 1000000;

  Type
    detail = record
      name:string;
      mass:real;
      gabarit:record
        weight:real;
        height:real;
      end;
      material:string;
      count:integer;

    end;
  Var
    det:array[1..nmax] of detail;
    n:integer;
  Begin
    readln(n);
    for var i:=1 to n do
      with det[i] do
      begin
        write('Введите имя детали :');
        readln(name);
        write('Введите вес детали :');
        Readln(mass);
        write('Введите высоту детали :');
        Readln(gabarit.height);
        write('Введите длину детали :');
        Readln(gabarit.weight);
        write('Введите материал детали :');
        Readln(material);
        write('Введите количество деталей на складе :');
        Readln(count);
        clrscr;
      end;
      writeln('┌','─'*13,'┬','─'*9,'┬','─'*9,'┬','─'*9,'┬','─'*12,'┬','─'*20,'┐');
      writeln('│','Наименование':11,'│':2,'Масса':8,'│':2,'Высота':8,'│':2,'Длина':8,'│':2,'Матриал':11,'│':2,'Количество на складе':15,'│');
      writeln('├','─'*13,'┼','─'*9,'┼','─'*9,'┼','─'*9,'┼','─'*12,'┼','─'*20,'┤');
      for var i:=1 to n do
        with det[i] do
        begin
          if i <> n then
          begin
          writeln('│',name:12,'│':2,mass:8,'│':2,gabarit.height:8,'│':2,gabarit.weight:8,'│':2,material:11,'│':2,count:20,'│');
          writeln('├','─'*13,'┼','─'*9,'┼','─'*9,'┼','─'*9,'┼','─'*12,'┼','─'*20,'┤');
          end
          else
          begin
            writeln('│',name:12,'│':2,mass:8,'│':2,gabarit.height:8,'│':2,gabarit.weight:8,'│':2,material:11,'│':2,count:20,'│');
            writeln('└','─'*13,'┴','─'*9,'┴','─'*9,'┴','─'*9,'┴','─'*12,'┴','─'*20,'┘');
          end;
        end;
  End.