Найти долю вывоза каждого вида продукции

const
  n = 17;
 
type
  Prod = record //тип продукт
    name : String; //название
    value : LongWord; //количество вывоза
  end;
  Vector = Array[0..n] of Prod;
 
var
  mass : Vector;
  i : Byte;
 
procedure WriteToFile();
var
  i : Byte;
  f : File of Prod;
begin
  Assign(f, 'database.db'); ReWrite(f);
  for i := 0 to n do
    Write(f, mass[i]);
  Close(f);
end;
 
procedure ReadFromFile(var mass : Vector);
var
  i : Byte;
  f : File of Prod;
begin
  Assign(f, 'database.db'); Reset(f);
  i := 0;
  while (i <= n) And (Not(Eof(f))) do
  begin
    Read(f, mass[i]);
    Inc(i);
  end;
  Close(f);
end;
 
function SumValue() : LongWord; //суммарный объём вывоза
var
  i : Byte;
  Result : LongWord; //если ругается на отсутствие переменной - раскомментировать
begin
  Result := 0;
  for i := 0 to n do
    Result := Result + mass[i].value;
  SumValue := Result;
end;
 
function FindOver100Prod() : Byte;
var
  i, Result : Byte;
begin
  Result := 0;
  for i := 0 to n do
    if (mass[i].value > 100000) then
      Inc(Result);
  FindOver100Prod := Result;
end;
 
procedure WritePercent();
var
  i : Byte;
  sum : LongWord;
begin
  sum := SumValue();
  for i := 0 to n do
    WriteLn(mass[i].name, #9, (mass[i].value * 100 / sum):0:2, '%');
  WriteLn('Общая сумма', #9, sum);
end;
 
begin
  for i := 0 to n do
  begin
    Write('Введите название продукта: '); ReadLn(mass[i].name);
    Write('Введите объём вывоза: '); ReadLn(mass[i].value);
  end;
  FindOver100Prod();
  WritePercent();
end.