Составить круговую диаграмму - PascalABC.NET

Uses 
  GraphAbc;
 
begin
  var data := Arr(
    (10.5, 'Европа', clYellow),
    (44.4, 'Азия', clLime),
    (30.32, 'Африка', clBrown),
    (24.5, 'Северная Америка', clRed),
    (17.83, 'Южная Америка', clGreen),
    (8.504, 'Австралия с Океанией', clGray),
    (14.11, 'Антарктида', clMagenta)
  );
  
  setWindowSize(600, 600);
  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.