столбиковая диаграмма в вертикали(help)доработать

//=================------------------//
//Программа для чтения из файла данных
//и черчения по ним диаграммы
//с последующим нахождением общей суммы
//и выводом ее вместе с диаграммой в графическом окне
//=================------------------//
program Diagramm;
//=================------------------//
//Подключаем можули для работы с графикой и объектами
uses ABCObjects, GraphABC;
//=================------------------//
//Объявляем переменные/массивы/файл/текстовый объект
var
i, n, y0, x0, x1, y1, Ox, j, rr,gg,bb: integer;
arx:array[1..100] of integer;
arr:array[1..100] of real;
MaxX:real;
strH, st:string;
TextF:TextABC;
initFile: file of real;
begin
//=================------------------//
//Инициализируем требуемые начальные значения
     Ox:=320;
     x0:=10;
     y0:=20;
     y1:=y0;
//=================------------------//
//Получаем доступ к файлу
     assign(initFile,'initFile.dat');
//=================------------------//
//Читаем из файла в массив и закрываем файл
     reset(initFile);
     n:=0;
     while(not eof(initFile)) do
     begin
        n:=n+1;
        read(initFile,arr[n]);
     end;
     close(initFile);
//=================------------------//
//Записываем округленные значения во второй массив для
//отображения в окне
     for i:=1 to n do
     begin
         arx[i]:=round(arr[i]);   //Tops
     end;
//=================------------------//
//Рисуем оси
     MoveTo(x0,y0);
     LineTo(600,y0);                   ?
     LineTo(560,y0-10);              ?
     LineTo(560,y0+10);             ?
     LineTo(600,y0);                   ?          нужно нарисовать стандартные оси x y
     MoveTo(Ox,10);                  ?
     LineTo(Ox,430);                  ?
     LineTo(Ox-10,390);             ?
     LineTo(Ox+10,390);             ?
     LineTo(Ox,430);                 ?
//=================------------------//
//Цикл рисования диаграммы
     MoveTo(x0,y0);
     for i:=1 to n do
     begin
         y1:=y0+30;
//=================------------------//
//Отображаем процентное значение длинны от максимального значения
                  Str(abs(arr[i]-Ox):3:3,st);
                  strH:=st;
                  if arx[i]>=Ox then
                  TextF:=TextABC.Create(arx[i]+10,y0+5,10,clGreen,strH)
                  else
                  TextF:=TextABC.Create(arx[i]-60,y0+5,10,clMaroon,strH);
//=================------------------//
//Генерируем случайный цвет
         Randomize;
         rr:=Random(256);
         gg:=Random(256);
         bb:=Random(256);
//=================------------------//
//Чертим прямоугольник по значению из файла
     x0:=Ox;
     Rectangle(x0,y0,arx[i],y1);
     if arx[i]>Ox then
     FloodFill((x0+5), y0+5, rgb(rr,gg,bb))
     else                                                            а прямоуг-к должен быть по 0.8Бто есть между 
     FloodFill((x0-5), y0+5, rgb(rr,gg,bb));                каждым значением должен быть промежуток 0.2
     y0:=y1;
     x0:=10;
     end;
//=================------------------//
//Находим наибольший элемент
     MaxX:=abs(arr[1]-Ox);
     j:=1;
     for i:=1 to n do
     begin
         if(abs(arr[i]-Ox)>MaxX)then
            begin
                 MaxX:=abs(arr[i]-Ox);
                 j:=i;
            end;
     end;
//=================------------------//
//Выводим значение наибольшего элемента на экран в текстовом поле
     Str(MaxX:3:3,strH);
     st:='Наибольшее значение : '+strH;
     Str(j,strH);
     st:=st;
     TextF:=TextABC.Create(10,windowheight-45,14,clBlack,st);
//=================------------------//
//Находим наименьший элемент
     MaxX:=abs(arr[1]-Ox);
     j:=1;
     for i:=1 to n do
     begin
         if(abs(arr[i]-Ox)<MaxX)then
            begin
                 MaxX:=abs(arr[i]-Ox);
                 j:=i;
            end;
     end;
//=================------------------//
//Выводим значение наименьшего элемента на экран в текстовом поле
//и завершаем программу
     Str(MaxX:3:3,strH);
     st:='Наименьшее значение : '+strH;
     Str(j,strH);
     st:=st;
     TextF:=TextABC.Create(10,windowheight-25,14,clBlack,st);
end.
 
 
//Для создания файла с вводом данных вручную//
program NewFile;
var
k,n,Ox:integer;
MaxY:real;
initFile: file of real;
begin
cls;
//=================------------------//
     assign(initFile,'initFile.dat');
     Ox:=320;
     writeln('Введите кол-во диаграмм(Желательно не больше 12): ');
     readln(n);
     if n<1 then
          writeln('ERROR!!!');
//=================------------------//
     rewrite(initFile);
     writeln('Отридцательные значение-диаграмма влево, положительные-вправо');
     writeln('Рекомендуемый диапозон: от -250 до 250');
     for k:=1 to n do
     begin
        write('Введите значение ',k,' диаграммы: ');
        readln(MaxY);
        MaxY:=MaxY+Ox;
        if ((MaxY>=Ox) and (MaxY<Ox+8)) then
        MaxY:=MaxY+8;
        if ((MaxY<Ox) and (MaxY>Ox-8)) then
        MaxY:=MaxY-8;
        write(initFile,MaxY);
     end;
//=================------------------//
close(initFile);
end.
 
 
//Генерация файла с 12 случайными значениями//
Program NewFileRandom;
var
k,n,Ox:integer;
MaxX,divX:real;
initFile: file of real;
begin
cls;
//=================------------------//
    assign(initFile,'initFile.dat');
    n:=12;
    Ox:=320;
//=================------------------//
     Randomize;
     rewrite(initFile);
     for k:=1 to n do
     begin
        divX:=Random(1000)/1000;
        MaxX:=Random(441)+60+divX;
        if ((MaxX>=Ox) and (MaxX<Ox+8)) then
        MaxX:=MaxX+8;
        if ((MaxX<Ox) and (MaxX>Ox-8)) then
        MaxX:=MaxX-8;
        write(initFile,MaxX);
     end;
//=================------------------//
close(initFile);
end.