Построение графика функции y=sin(x)+2

Program xz_1;
uses Graph;
const Xc = 320; Yc = 240; zoom = 10;
var c,a1,b1,a,b,Gd,Gm,ErrorCode:Integer;
x,y:real;
begin
Gd := Detect;
InitGraph(Gd, Gm, '');
ErrorCode := GraphResult;
If ErrorCode <> 0 Then
Begin
    WriteLn('Owibka: ', GraphErrorMsg(ErrorCode));
    Halt(1);
End;
{Koordinati i wkala}
Line(Xc,Yc-210,Xc,Yc+210);
Line(Xc-290,Yc,Xc+290,Yc);
Line(Xc,Yc-210,Xc-10,Yc-190);
Line(Xc,Yc-210,Xc+10,Yc-190);
Line(Xc+290,Yc,Xc+270,Yc-10);
Line(Xc+290,Yc,Xc+270,Yc+10);
OutTextXY(Xc+280,Yc+10,'X');
OutTextXY(Xc-20,Yc-200,'Y');
OutTextXY(Xc-10,Yc+5,'0');
Line(Xc-29*Zoom,Yc-8*Zoom,Xc+29*Zoom,Yc-8*Zoom);
Line(Xc-10*Zoom,Yc-12*Zoom,Xc+10*Zoom,Yc-12*Zoom);
Line(Xc-3*Zoom,Yc,Xc-3*Zoom,Yc-8*Zoom);
Line(Xc-(38),Yc-2*Zoom,Xc,Yc-2*Zoom);
Line(Xc-38,Yc-135,Xc+4*Zoom,Yc-25);
SetLineStyle(3,2,1);
Line(Xc-6*Zoom,Yc,Xc-6*Zoom,Yc-8*Zoom);
Line(Xc+6*Zoom,Yc,Xc+6*Zoom,Yc-8*Zoom);
Ellipse(Xc-30,Yc-80,180,360,30,40);
Ellipse(Xc+30,Yc-80,0,180,30,40);
For a:=Xc-6*Zoom+1 to Xc-1 do
    For b:=Yc-8*Zoom+1 to Yc-4*Zoom-1 do begin
    a1:=a-Xc;b1:=b-Yc;
    if b1<sin(a1)+2 then //сообственно здесть проблемка,возможно есть другой способо прорисовки графика функции,ведь мне потом надо еще подсчитать какие точки попадают в заштрихованные области
    PutPixel(a,b,blue);
    end;
 
ReadLn;
end.