График y=1/2*cos(x) на отрезке -pi,pi

uses graphwpf;
function f(x: real):= 1/2*cos(x);
begin
DrawGraph(f, -pi, pi);
end.

uses graphABC;
var gx, gy, x0, y0, k, x1, y1, i: integer;
    x, y: real;
begin
 gx:= 500;
 gy:= 250;
 k:= 50; // масштаб
 SetWindowSize(gx, gy);
 x0:= gx div 2; // центр y
 y0:= gy div 2; // центр x
 // ось х
 line(0, y0, gx, y0);
 line(gx, y0, gx-10, y0+7);
 line(gx, y0, gx-10, y0-7);
 TextOut(gx-10, y0+10, 'X');
 // ось y
 line(x0, 0, x0, gy);
 line(x0, 0, x0-7, 10);
 line(x0, 0, x0+7, 10);
 TextOut(x0-20, 0, 'Y');
 // цикл для черточек х
 i:= -4;
 while i<5 do
  begin
   line(x0+i*k, y0+7, x0+i*k, y0-7);
   if i <> 0
    then TextOut(x0+i*k-3, y0+10, i)
    else TextOut(x0+i*k+2, y0+3, i);
   inc(i);
  end;
 // цикл для черточек y
 i:= -2;
 while i<3 do
  begin
   if i<>0
    then
     begin
      line(x0+7, y0+i*k, x0-7, y0+i*k);
      TextOut(x0+15, y0-i*k-8, i);
     end;
   inc(i);
  end;
 // цикл для графика
 x:= -pi;
 while x<=pi do
  begin
   y:= 1/2*cos(x);
   x1:= x0+round(x*k);
   y1:= y0-round(y*k);
   SetPenColor(clPurple);
   Circle(x1, y1, 2);
   FloodFill(x1, y1, clPink);
   x:= x+0.1;
  end;
end.