Исправить программу

var x0,y0:integer;
//константы и переменные
{----------------------------
Axis: оси координат
----------------------------}
procedure Axis;
 begin
  x0:= w div 2;
  y0:= h div 2;
  line (0,y0,w,y0);
  line(x0,0,x0,h);
  setfontsize (15);
  Textout (x0+10,10,'y');
 
 end;
 {----------------------------
Plot: графики функции
----------------------------}
    procedure plot;
    var M,x : real;
    begin
     M:=w/(b-a);
        x:=a;
     while x <= b do
       begin
 
        setbrushstyle (bsDiagCross);
        floodfill (x0-trunc (M), y0+2, clblue);
        setpixel (trunc(x*m)+x0, trunc (-sin(x)*m)+y0, clred);
 
        x:=x+0.01;
       end;
     end;
 
begin
 setwindowsize (w , h );
 Axis ;
 plot;
end.

   while x <= b do
   begin
      setpixel (trunc(x*m)+x0, trunc (-sin(x)*m)+y0, clred);
 
      x:=x+0.01;
   end;
   setbrushstyle (bsDiagCross);
   floodfill (x0-trunc (M), y0+2, clblue); // Это должно быть после завершения цикла...

setpencolor(clblue);
line(x0+trunc (-1.57*m),y0,x0+trunc (-1.57*m),y0+trunc (sin(1.57)*m));
setbrushstyle (bsDiagCross);
floodfill (x0+trunc (-1.57*m/2), y0+2, clblue);