Построить столбиковую диаграмму, отображающую рост цен на бензин

uses graphABC;
const god:array[1..7] of string=('2002','2003','2004','2005','2006',
                               '2008','2009');
    cen:array[1..7] of real=(15.05,16.30,17.23,18.60,19.32,20.95,21.70);
    cv:array[1..7] of integer=(clPurple,clAqua,clRed,clGreen ,clBlue,clLime,clSkyBlue);
var i,j,x0,y0,w,c:integer;
    mx,h:real;
    s:string;
begin
textout(200,20,'Рост цен на бензин в 2002-2009 годах');
w:=20;{ширина столбцов}
x0:=50;{левый край диагоаммы}
y0:=windowheight-80;{нижний край}
mx:=cen[1];
for i:=1 to 7 do
if cen[i]>mx then mx:=cen[i];{находим максимум}
h:=(y0-40)/mx;{масштаб по вертикали}
for i:=1 to 7 do
 begin
  c:=cv[i];
  setpencolor(c);{случайный цвет}
  setbrushcolor(c);
  {рисуем прямоугольники с заданной шириной, шагом  и высотой соответственно значению цен}
  rectangle(x0+4*w*(i-1),y0-round(cen[i]*h),x0+w*(4*i-2),y0);
  setbrushstyle(bsClear);
  textout(x0+4*w*(i-1)+5,y0+20,god[i]);{выводим по низу годы}
  str(cen[i]:5:2,s);{преобразуем цены в строку}
  textout(x0+4*w*(i-1)+w-15,y0-round(cen[i]*h)-20,s);{выводим цену выше столбика}
 end;
end.

uses graphABC;
function F(a,x:real):real;
begin
F:=a*exp(x);
end;
var x,mx,my,dx:real;
    x0,y0,xn,xk,i:integer;
    s:string;
begin
xn:=0;xk:=4;{интервал по Х}
x0:=50;
mx:=(windowwidth-x0-30)/xk;{масштаб по Х}
y0:=windowheight div 2;
my:=(y0-30)/F(2,xk);
line(0,y0,windowwidth,y0);{оси}
line(x0,0,X0,windowheight);
for i:=1 to 10 do{максимальное количество засечек в одну сторону}
  begin
    line(x0-3,y0-round(i*my*10),x0+3,y0-round(i*my*10));{засечки на оси У}
    line(x0-3,y0+round(i*my*10),x0+3,y0+round(i*my*10));
    {подпись оси У}
    str(i*10,s);
    textout(x0-35,y0-round(i*my*10),s);{соответственно засечкам}
    textout(x0-35,y0+round(i*my*10),'-'+s);
    line(x0+round(i*mx),y0-3,x0+round(i*mx),Y0+3); {засечки на оси Х}
    line(x0-round(i*mx),y0-3,x0-round(i*mx),Y0+3);
    {подпись оси Х}
    str(i,s);
    textout(x0+round(i*mx),y0+10,s);
    textout(x0-round(i*mx),y0+10,'-'+s);
  end;
{центр}
textout(x0+5,y0+10,'0');
{подписи концов осей}
textout(windowwidth-10,y0-15,'X');
textout(x0+5,10, 'Y');
{график}
x:=xn;
dx:=0.001;
while x<=xk do
 begin
  setpixel(x0+round(x*mx),y0-round(F(2,x)*my),clRed);
  setpixel(x0+round(x*mx),y0-round(F(-2,x)*my),clBlue);
  x:=x+dx;
 end;
{название}
setfontsize(12);
textout(100,20,'Графики функции y=A*e^x');
textout(130,40,'na intervale [0;4]');
setfontcolor(clRed);
textout(160,60,'A=2');
setfontcolor(clRed);
textout(160,80,'A=-2');
end.