гистограмма в паскаль

Тема: Построение столбчатых диаграмм
Цель: научить средствами языка программирования строить столбчатые диаграммы;
составить программу, которая выполняет построение диаграммы на экране.
Гистограммой называют столбчатую диаграмму.
Столбики могут быть представлены прямоугольниками (Bar), объемными
прямоугольниками (Bar3D).
Следует обратить внимание на расположение осей координат на экране, на задание
масштаба.
1) Начальные значения задаем с клавиатуры, затем вкл графический режим (иначе не
выводится текст сообщения);
2) Рисуем линии осей горизонтальную и вертикальную линию с корректировкой по
размеру экрана (getmaxx-70,getmaxy-80)
Следует обратить внимание на смещение осей на картинке по отношению к реальным
координатам экрана:
{getMaxX или}320+X , т.к. направление осей совпадает;
{getMaxY или}240-Y , т.к. направление осей противоположно.
3) вывод заданного значения в виде текста
4) легенда – графический объект который поясняет обозначения диаграммы (квадратики,
кружки + текст)
program gistograma;
uses crt, graph;
const k=10;
var d,m:integer;
s1:string;
n1,n2,n3:integer;
begin
write('задать первое значение:'); readln(n1);
clrscr;
d:=detect;
initgraph(d,m,'c:\bp\bgi');
line (40,70,40,getmaxy-70);
line (30,getmaxy-80, getmaxx-70,getmaxy-80);
setcolor(blue);
setfillstyle(10,14);
bar3d(100, getmaxy-n1*k,150,getmaxy-80,15,true);
setcolor (green);
str(n1,s1);
outtextxy(115,getmaxy-n1*k+50,s1);
readln;
closegraph;
end.
Задание: построить гистограмму «
__________________________________________________________
__________________________________________________________
__________________________________________________________
__________________________________________________________
__________________________________________________________
__________________________________________________________
__________________________________________________________
__________________________________________________________
__________________________________________________________
__________________________________________________________
__________________________________________________________
__________________________________________________________
__________________________________________________________
__________________________________________________________
__________________________________________________________
Заголовок диаграммы;
Построить и подписать оси;
Построить столбики;
Легенда;
Подписать данные;
Задать цвет, тип линий, заливки.