Отобразить на графике вертикальные линии через точки на оси Х

uses graphABC;
function F(x:real):real;
begin
F:=4*x*x*x+43*x*x+404*x+1269;
end;
 
var x,mx,my:real;
    gx,gy,a,b,ymx,x0,y0,i,a1,b1:integer;
    s:string;
begin
gx:=900;
gy:=700;
setwindowsize(gx,gy);  //устанавливает размер клиентской части графического окна.
centerwindow;  //устанавливает графическое окно в центре экрана.
a:=-5;
b:=5;
ymx:=1270;
a1:=-10;
b1:=10;
x0:=gx-200;//начало координат в правый нижний угол опустим
y0:=gy-200;
mx:=(x0-30)/-a;//масштаб по Х: отступаем от края на 30 пикселей и делим на 5
my:=(y0-50)/ymx;//по Y
line(0,y0,gx,y0);//ось Х
line(x0,0,x0,gy);  //ось Y
for i:=1 to trunc(-a*5) do//создаем ось Х
 begin
  line(gx, y0, gx - 10, y0 + 10);//стрелка на координате x
  line(gx, y0, gx - 10, y0 - 10);//стрелка на координате x
  line(x0-round(i*mx/5),y0-3,x0-round(i*mx/5),y0+3); //засечки
   textout(x0 - round(i * mx / 5) - 5, y0 + 10, floattostr(-i / 5));//подписи
   textout(x0 + round(i * mx / 5) - 5, y0 + 10, floattostr(i / 5));//подписи
 end;
for i:=1 to trunc(ymx/50)+1 do//создаем ось Y
 begin
  line(x0, 0, x0 - 10, 10);//стрелка на координате y 
  line(x0, 0, x0 + 10, 10);//стрелка на координате y
  line(x0-3,y0-round(i*my*50),x0+3,y0-round(i*my*50)); //засечки на оси Y
    textout(x0 + 15, y0 - round(i * my * 50) - 5, inttostr(i * 50)); //подписи
    textout(x0 + 15, y0 + round(i * my * 50) - 5, inttostr(-i * 50)); //подписи
 end;
//центр
textout(x0+5,y0,'0');
//подписи концов осей
textout(15,y0-25,'X');
textout(x0+10,10, 'Y');
//линии через точки а и в
 
 
//график
SetPenWidth(5); 
 
x:= a1;
setpencolor(clgreen);
 Line(x0+trunc(a1), 0, x0+trunc(a1), gy); // линия через х=а
x:= b1;
setfontcolor(clgreen);
Line(x0+trunc(b1), 0, x0+trunc(b1), gy); // линия через точку х=в
 
setpencolor(clRed);
x:=a;
 
i:=0;
while x<=b do
 begin
 
  x:=x+0.001;
  if F(x)>=-300 then
   begin
   
    inc(i);
    if i=1 then moveto(x0+round(x*mx),y0-round(F(x)*my))
    else lineto(x0+round(x*mx),y0-round(F(x)*my));
   end;
 end;
//название
setfontsize(12);
setfontcolor(clBlue);
textout(50,10,'y=4*х^3+43х^2+404*x+1269');
end.