Построить график y=sin(x)

uses
  graphabc;
 
const
  n = 10; // кол-во делений по оси абсцисс 
 
var
  x0, y0, i, vsp: integer; // х0, y0 - координаты центра
  s: string;
 
begin
  x0 := WindowWidth div 2;
  y0 := WindowHeight div 2;
  line(x0, 0, x0, WindowHeight);
  line(0, y0, WindowWidth, y0);
  line(x0, 0, x0 - 10, 15);
  line(x0, 0, x0 + 10, 15);
  line(WindowWidth, y0, WindowWidth - 15, y0 + 10);
  line(WindowWidth, y0, WindowWidth - 15, y0 - 10);
  vsp := WindowWidth div (2 * (n + 1)); i := 1;
  while vsp <= WindowWidth div 2 - 15 do 
  begin
    line(x0 + vsp, y0 - 5, x0 + vsp, y0 + 5);
    str(i, s);
    TextOut(x0 + vsp - 3, y0 + 7, s); 
    i := i + 1;
    vsp := i * (WindowWidth div (2 * (n + 1)));
  end;
  vsp := WindowWidth div (2 * (n + 1)); i := 1;
  while vsp <= WindowWidth div 2 - 15 do 
  begin
    line(x0 - vsp, y0 - 5, x0 - vsp, y0 + 5);
    str(-i, s);
    TextOut(x0 - vsp - 7, y0 + 7, s); 
    i := i + 1;
    vsp := i * (WindowWidth div (2 * (n + 1)));
  end;
  vsp := WindowWidth div (2 * (n + 1)); i := 1;
  while vsp <= WindowHeight  div 2 do 
  begin
    line(x0 - 5, y0 + vsp, x0 + 5, y0 + vsp);
    str(-i, s);
    TextOut(x0 + 7, y0 + vsp - 6, s); 
    i := i + 1;
    vsp := i * (WindowWidth div (2 * (n + 1)));
  end;
  vsp := WindowWidth div (2 * (n + 1)); i := 1;
  while vsp <= WindowHeight div 2 - 15 do 
  begin
    line(x0 - 5, y0 - vsp, x0 + 5, y0 - vsp);
    str(i, s);
    TextOut(x0 + 10, y0 - vsp - 6, s);
    i := i + 1;
    vsp := i * (WindowWidth div (2 * (n + 1)));  
  end;
  s := 'X';
  TextOut(WindowWidth - 15, y0 - 27, s);
  s := 'Y';
  TextOut(x0 - 23, 2, s);
  s := '0';
  TextOut(x0 + 4, y0 - 16, s);
end.