секторная диаграмма Опции

[Ульяна]

Помогите пожалуйста с програмкой! У меня 20 зачет по программированию , а я незнаю как решить!

Секторная диаграмма — это круг, площади секторов которого пропорциональны соответствующим числовым величинам, взятым из некоторой совокупности (рис). Для большей наглядности секторы диаграмм закрашивают в разные цвета.

Даны семь действительных положительных чисел. Построить секторную диаграмму для этих значений. Заданные числа разместить во внешнем файле (последовательный доступ).

Я начала решать но ничего не выходит. Вот мое решение:

Код

uses Graph;

const
   r = 120;
var
   a : array [1..100] of integer;
   i : integer;
   s : real;
   alfa : array [1..100] of real;
   x, y : array [1..100] of integer;
   Gd, Gm : Integer;
   Radius : Integer;
begin
   writeln ('введите 7 действительных чисел - ');
   for i := 1 to 7 do
      readln (a[i]);
   Gd := Detect;
   InitGraph(Gd, Gm, ' ');
      if GraphResult <> grOk then
     Halt(1);
   Circle(320, 240,r);
   s := pi*r*r;
   for i := 1 to 7 do
      alfa[i] := 2*a[i] / (r*r);
   line (320,240,320,120);
   i := 7;
   while i>0 do begin
      i := i-1;
      x[i] := trunc(320 + r*cos(alfa[i]));
      y[i] := trunc(240 + r*sin(alfa[i]));
      line (320,240,x[i],y[i]);
   end;
   Readln;
   CloseGraph;
end.