Линейная диаграмма жизни животных

//Цвета выберешь с сестрой по вкусу
 
uses GraphABC;
 
const rect_height = 10; //Высота каждого из прямоугольников на диаграмме
      begemot = 40;
      belka = 6;
      giraf = 12;
      zajac = 8;
      krokodil = 80;
      medved = 45;
      slon = 70;
      cherepaha = 130;
      window_width = 640;
      window_height = 480;
      y_of_OX = window_height - 80;
      x_of_OY = 80;
      label_length = 550; //Длина "засечек"
      x = 4; //Просто коэф-т
      font_name = 'Comic Sans MS'; //Название шрифта
      font_size = 8; //Размер шрифта
  
var i, counter:cardinal;  
  
begin
  SetWindowWidth(window_width); //Устанавливаем ширину экрана
  SetWindowHeight(window_height); //Устанавливаем высоту экрана
  ClearWindow; //Очищаем окно
  Font.Name:= font_name;
  Font.Size:= font_size;
  Line(0, y_of_OX, window_width, y_of_OX); //Проводим OX
  Line(x_of_OY, 0, x_of_OY, window_height); //Проводим OY
  //Теперь "засечки"
  i:= x_of_OY; //Абсцисса начальной засечки
  repeat
    Line(i, y_of_OX - 3, i, y_of_OX + 3);
    i:= i + 3;
  until (i > x_of_OY + label_length);
  counter:= 1;
  i:= x_of_OY;
  repeat 
    i:= i + rect_height * x;
    TextOut(i - x, y_of_OX + Font.Size, inttostr(counter * 10));
    counter:= counter + 1;
  until (counter > cherepaha div 10);
  //Чертим саму диаграмму
  SetPenColor(clBlack);
  //Бегемот
  i:= y_of_OX - rect_height * x;
  SetBrushColor(clRed);
  SetBrushStyle(bsSolid);
  rectangle(x_of_OY, i, x_of_OY + begemot * x, i + rect_height * x);
  Line(x_of_OY - 7, i, x_of_OY, i); 
  SetBrushColor(clWhite);
  TextOut(0, i, 'Бегемот-' + inttostr(begemot));
  //Белка
  i:= i - rect_height * x;
  SetBrushColor(clGreen);
  SetBrushStyle(bsSolid);
  rectangle(x_of_OY, i, x_of_OY + belka * x, i + rect_height * x);
  Line(x_of_OY - 7, i, x_of_OY, i); 
  SetBrushColor(clWhite);
  TextOut(0, i, 'Белка-' + inttostr(belka));
  //Жираф
  i:= i - rect_height * x;
  SetBrushColor(clBlue);
  SetBrushStyle(bsSolid);
  rectangle(x_of_OY, i, x_of_OY + giraf * x, i + rect_height * x);
  Line(x_of_OY - 7, i, x_of_OY, i); 
  SetBrushColor(clWhite);
  TextOut(0, i, 'Жираф-' + inttostr(giraf));
  //Заяц
  i:= i - rect_height * x;
  SetBrushColor(clYellow);
  SetBrushStyle(bsSolid);
  rectangle(x_of_OY, i, x_of_OY + zajac * x, i + rect_height * x);
  Line(x_of_OY - 7, i, x_of_OY, i); 
  SetBrushColor(clWhite);
  TextOut(0, i, 'Заяц-' + inttostr(zajac));
  //Крокодил
  i:= i - rect_height * x;
  SetBrushColor(clBrown);
  SetBrushStyle(bsSolid);
  rectangle(x_of_OY, i, x_of_OY + krokodil * x, i + rect_height * x);
  Line(x_of_OY - 7, i, x_of_OY, i); 
  SetBrushColor(clWhite);
  TextOut(0, i, 'Крокодил-' + inttostr(krokodil));
  //Медведь
  i:= i - rect_height * x;
  SetBrushColor(clLightGray);
  SetBrushStyle(bsSolid);
  rectangle(x_of_OY, i, x_of_OY + medved * x, i + rect_height * x);
  Line(x_of_OY - 7, i, x_of_OY, i); 
  SetBrushColor(clWhite);
  TextOut(0, i, 'Медведь-' + inttostr(medved));
  //Слон
  i:= i - rect_height * x;
  SetBrushColor(clMagenta);
  SetBrushStyle(bsSolid);
  rectangle(x_of_OY, i, x_of_OY + slon * x, i + rect_height * x);
  Line(x_of_OY - 7, i, x_of_OY, i); 
  SetBrushColor(clWhite);
  TextOut(0, i, 'Слон-' + inttostr(slon));
  //Черпаха
  i:= i - rect_height * x;
  SetBrushColor(clCyan);
  SetBrushStyle(bsSolid);
  rectangle(x_of_OY, i, x_of_OY + cherepaha * x, i + rect_height * x);
  Line(x_of_OY - 7, i, x_of_OY, i); 
  SetBrushColor(clWhite);
  TextOut(0, i, 'Черепаха-' + inttostr(cherepaha));
  Font.Style:= fsBold;
  Font.Size:= Font.Size + x;
  TextOut(170, x, 'Продолжительность жизни животных');
end.

type
  TArrayName = array[1..8] of string;
  TArrayAge = [1..8] of integer;
const
  AnimalsList = ('бегемот', 'белка', 'Жираф', 'Заяц', 'Крокодил', 'Медведь', 'Слон', 'Черепаха');
  AnimalsAge = (1, 2, 3, 4, 5, 6, 7, 8);
..................
begin
...........
  for a:=1 to 8 do
  begin
    i:= i - rect_height * x;
    SetBrushColor(clMagenta);
    SetBrushStyle(bsSolid);
    rectangle(x_of_OY, i, x_of_OY + AnimalsAge[a] * x, i + rect_height * x);
    Line(x_of_OY - 7, i, x_of_OY, i); 
    SetBrushColor(clWhite);
    TextOut(0, i, AnimalsList[a] + inttostr(AnimalsAge[a]));
  end;
...........
end.

const
  AnimalsList: TArrayName = ('бегемот', 'белка', 'Жираф', 'Заяц', 'Крокодил', 'Медведь', 'Слон', 'Черепаха');
  AnimalsAge: TArrayAge = (1, 2, 3, 4, 5, 6, 7, 8);