Помогите в написании кода...

[sobol556]

Написать программу, которая выводит круговую диаграмму, отражающую товарооборот (в процентах) книжного магазина. Исходные данные (объем продаж в рублях по категориям: книги, журналы, открытки и канцтовары) вводятся во время работы программы.

Алгоритм,наверно,примерно следующий:
Program имя;
Uses Graph;
var
grDriver, grMode, errCode: integer;
begin
grDriver:= Detect;
{определение номера, установленного в системе драйвера}
initGraph (grDriver, grMode,'');
{инициализация графического режима}
if errCode= grOK then
begin
{ режим открыт и можно работать}
end else
begin
{графический режим не удалось открыть, проанализируйте
содержание переменной errCode}
end.
Не разу не встречалась с графикой в паскале,помогите чем можете плз