Построить график в паскале y=x^2-4x-4

uses graphABC;
function f(x:real):real;
begin
f:=x*x-4*x-4
end;
var mx,my,x:real;
    a,b,xc,yc,i:integer;
begin
centerwindow;//окно в центре экрана
//интервал
a:=0;
b:=600;
//начало координат
xc:=50;
yc:=windowheight-50;
//масштабы
mx:=(windowwidth-70)/b;
my:=(yc-20)/f(b);
line(xc,yc,windowwidth,yc);
textout(windowwidth-20,yc-20,'X');
line(xc,0,xc,windowheight);
textout(xc+5,0,'Y');
textout(xc+5,yc+10,'0');
//засечки и подписи по осям
for i:=1 to 12 do
 begin
  line(xc+round(i*mx*50),yc-3,xc+round(i*mx*50),yc+3);
  textout(xc+round(i*mx*50)-5,yc+10,inttostr(i*50));
  line(xc-3,yc-round(i*my*30000),xc+3,yc-round(i*my*30000));
  line(xc-3,yc+round(i*my*30000),xc+5,yc+round(i*my*30000));
  textout(xc-40,yc-round(i*my*30000)-5,inttostr(i*30000));
  textout(xc-45,yc+round(i*my*30000)-5,inttostr(-i*30000));
 end;
 //график - прямая линия
setpencolor(clBlue);
x:=a;
while x<=b do
 begin
  if x=a then moveto(xc+round(x*mx),yc-round(f(x)*my))
  else lineto(xc+round(x*mx),yc-round(f(x)*my));
  x:=x+1;
 end;
setfontcolor(clBlue);
setfontsize(14);
textout(250,0,'y=x^2-4x-4');
end.