Квадратичная функция (парабола) - масштабирование

uses graph;
var
  x1,x2,y1,y2:real;
  a,b,c,i,cd:integer;
  gdriver,gmod:integer;
  cds:string;
 
function pixx(e:real):integer;
  begin
    pixx:=round(320+e/cd*20);
  end;
 
function pixy(e:real):integer;
  begin
    pixy:=round(240-e/cd*20);
  end;
 
begin
  writeln ('vvedite a,b,c');
  readln(a,b,c);
  x1:=((-1*b)/(2*a));
  y1:=a*x1*x1+b*x1+c;
  writeln ('vershina',x1:10:2,y1:10:2);
  x1:=round(x1);
  y1:=round(y1);
 
  if abs(x1)>abs(y1) then cd:=round(x1/5)
    else cd:=round(y1/5);
  if cd=0 then cd:=1
    else cd:=abs(cd);
 
  writeln ('cena delenii =',cd);
  readln;
  gdriver:=detect;
  initgraph(gdriver,gmod,'');
  line (10,240,630,240);
  line (320,10,320,470);
  for i:=1 to 31 do
    line (i*20,235,i*20,245);
 
  for i:=1 to 23 do
    line (315,i*20,325,i*20);
 
  str(cd,cds);
  outtextxy(325,215,cds);
  outtextxy(339,245,cds);
 
  setcolor(green);
  while abs(y2/cd)<11 do begin
    x2:=x1+0.1;
    y2:=a*x2*x2+b*x2+c;
    line (pixx(x1),pixy(y1),pixx(x2),pixy(y2));
    x1:=x2; y1:=y2;
  end;
 
  y2:=0;
  x1:=round((-1*b)/(2*a));
  y1:=a*x1*x1+b*x1+c;
 
  while abs(y2/cd)<11 do begin
    x2:=x1-0.1;
    y2:=a*x2*x2+b*x2+c;
    line (pixx(x1),pixy(y1),pixx(x2),pixy(y2));
    x1:=x2; y1:=y2;
  end;
 
 
  readln;
  closegraph;
  end.