Круговая диаграмма с неизвестным количеством переменных

Uses 
  GraphAbc;
  
begin
  var data := Arr(
    (18060, 'Фамилия И.О. №1', clRandom),
    (19780, 'Фамилия И.О. №2', clRandom),
    (20210, 'Фамилия И.О. №3', clRandom),
    (24000, 'Фамилия И.О. №4', clRandom),
    (17000, 'Фамилия И.О. №5', clRandom),
    (8000, 'Фамилия И.О. №6', clRandom),
    (14000, 'Фамилия И.О. №7', clRandom)
  );
  
  SetFontSize(10);
  var sum := data.Sum(v -> v[0]);
  data.Numerate(0).Aggregate(0, (a, b) ->
                                begin
                                  var inf := b[1];
                                  result := a + round(inf[0] * 360 / sum) + 1;
                                  SetBrushColor(inf[2]);
                                  Pie(200, 240, 140, a, result);
                                  textout(400, b[0] * 25, inf[1]);
                                  textout(550, b[0] * 25, floattostr(inf[0]));
                                end);
end.

  // ...
  {$endregion FormDesigner}
  public 
    constructor;
    begin
      InitializeComponent;
    end;
    
  public
    data : array of (integer, string, Color); // <--- Вот это
  end;

procedure Form1.button1_Click(sender: Object; e: EventArgs);
begin
  var Rnd := new Random;
  data := PPTable.Rows.Cast&<DataGridViewRow>().Select(v -> (StrToInt(v.Cells[6].Value.ToString), v.Cells[1].Value.ToString, 
    Color.FromArgb(Rnd.Next(0, 255), Rnd.Next(0, 255), Rnd.Next(0, 255)))).ToArray;
 
  // из грида с названием PPTable берется содержимое 6-ого и первого столбцов (в 6-ом - сумма "Итого",
  // в первом - фамилия. К своим реалиям сам подкорректируй
end;

procedure Form1.tabPage6_Paint(sender: Object; e: PaintEventArgs);
begin
  if (data <> nil) and (data.Length > 0) then // если этого не сделать - то таб попробует обновиться еще до занесения данных, и будет вылет
  begin
    var sum := data.Sum(v -> v[0]);
    data.Numerate(0).Aggregate(0, (a, b) ->
                                  begin
                                      var inf := b[1];
                                      result := a + round(inf[0] * 360 / sum) + 1;
                                      e.Graphics.FillPie(new SolidBrush(inf[2]), new System.Drawing.Rectangle(60, 100, 280, 280), a, result - a);
                                      e.Graphics.DrawString(inf[1], new System.Drawing.Font('Tahoma', 10), new SolidBrush(inf[2]), 400, b[0] * 25); 
                                      e.Graphics.DrawString(FloatToStr(inf[0]), new System.Drawing.Font('Tahoma', 10), new SolidBrush(inf[2]), 550, b[0] * 25); 
                                  end);
  end;
end;

public // <--- Вот тут выдаёт ошибку: Встречено 'public', а ожидался идентификатор
    data : array of (integer, string, Color); 
  end;

{$endregion FormDesigner}
  public 
    constructor;
    begin
      InitializeComponent;
    end;
    
  public
    data : array of (integer, string, Color); 
  end;
  
    
implementation