Построение графика функции

uses crt,graph;
var
i,j,y:integer;
gd,gm:integer;
begin
gd:=detect;
gm:=0;
initgraph(gd,gm,'c:\bp\bgi');
 
line(315,5,315,550);
line(50,250,600,250);
PutPixel(10,10,2);
for i:=-10 to 10 do
begin y:=(round(Int(cos(i/2)*cos(i/2)*100))); {dlia paraboli: y:=(i*i);}
if y>0 then
PutPixel(i+315,250-y,3);
if y<0 then
PutPixel(i+315,250-y,3);
end;
readln;
closegraph;
end.

i:=-10;
Repeat
   begin y:=(round(Int(cos(i/2)*cos(i/2)*100))); {dlia paraboli: y:=(i*i);}
   if y>0 then
   PutPixel(i+315,250-y,3);
   if y<0 then
   PutPixel(i+315,250-y,3);
   i:=i+0.2
   end;
Until i<10;

PutPixel(Round(i+315),Round(250-y),3);

program GraphX;
uses
  Graph, Crt;
var
  grDriver, grMode: Integer;
  a: Real;
  d: Real;
 
{Отдельно создана функция с формулой}
function Y(X: Real): Real;
begin
  {Перевод из градусов в радианы}
  X := X * pi / 180;
  Y := Sqr(Cos(X / 2));
end;
 
begin
  grDriver := Detect;
  InitGraph(grDriver, grMode, '..\BGI');
  if GraphResult = grOk then begin
    ClearDevice;
    SetColor(White);
 
    {Рисуем оси}
    Line(10, GetMaxY div 2, GetMaxX - 10, GetMaxY div 2);
    Line(GetMaxX div 2, 10, GetMaxX div 2, GetMaxY -10);
 
    {Подписи к осям}
    OutTextXY(GetMaxX - 20, GetMaxY div 2 + 10, 'X');
    OutTextXY(GetMaxX div 2 + 10, 10, 'Y');
    OutTextXY(GetMaxX div 2 + 10, GetMaxY div 2 + 10, '0');
 
    SetColor(Green);
 
    {d - точночть построения графика (шаг)}
    d := 1;
 
    {a - угол в градусах}
    {+20 и -20 - отступы от краев экрана}
    {100 - масштаб по Y}
    a := -(GetMaxX / 2) + 20;
    repeat
 
      {Вывод графика короткими отрезками (без прерываний)}
      Line(Round((GetMaxX / 2) + a),
           Round((GetMaxY / 2) - 100 * Y(a)),
           Round((GetMaxX / 2) + (a + d)),
           Round((GetMaxY / 2) - 100 * Y((a + d))));
 
      a := a + d;
    until a > GetMaxX / 2 - 20;
 
    repeat Delay(1) until KeyPressed;
    CloseGraph;
  end;
end.