построить график функции

program Grafik;
uses Graph;
 
var
  Driver, Mode, Error: Integer;
  x1, x2, delta, x: real;
  MaxX, MaxY, srX, srY, deltaX, deltaY: Word;
 
begin
  x1 := -3.14; (*начало интервала*)
  x2 := 2*3.14; (*конец интервала*)
  delta := 0.01; (*шаг*)
  Driver := Detect;
  InitGraph(Driver, Mode, '');
  Error := GraphResult;
  if Error <> grOk then
    WriteLn(GraphErrorMsg(Error))
  else begin
    MaxX := GetMaxX;
    MaxY := GetMaxY;
    srX := MaxX div 2;
    srY := MaxY div 2;
    Line(0, srY, MaxX, srY);
    Line(srX, 0, srX, MaxY);
    deltaY := MaxY div 2;
    if abs(x1) < abs(x2) then
      deltaX := MaxX div (Trunc(abs(x2))+1)
    else
      deltaX := MaxX div (Trunc(abs(x1))+1);
    x := x1;
    SetColor(Red);
    while (x-delta) <= x2 do
    begin
      Line(Trunc(SrX+x*deltaX),Trunc(SrY-sin(2*x)*deltaY),Trunc(SrX+(x+delta)*deltaX),Trunc(SrY-sin(2*(x+delta))*deltaY));
      x := x+delta;
    end;
  end;
  ReadLn;
  CloseGraph;
end.