Исправить программу: не выводится график функции

  program prog;
  uses Graph,crt,Mouse;
  procedure GraphInit;
  var grMode,grDriver,ErrCode,b,t,a:integer; ch,ch1:char;
  begin
   grDriver:=Detect;
   InitGraph(grDriver, grMode, 'BP');
   ErrCode:=GraphResult;
    if ErrCode <> grOK then
     begin
      writeln('Error:', 'GraphErrormsg<ErrCode)');
      readln;
      halt;
     end;
   end;
 
   {Функция мыши}
   function ButtonPressed(x1,y1,x2,y2:integer):boolean; {функция на проверку нажатия кнопки}
    var  Mk,Ml:integer;  ctr:integer;
     begin
      GetMouse;
      ButtonPressed:=(but=1)and(m>x1)and(m<x2)and(n>y1)and(n<y2);
     end;
 
    {Функция f(x)}
     function Fx2(x:real):real;
      var a,b:integer;
      begin
 
       Fx2:=a*cos(x)+b*x;
 
      end;
     {Функция F(x)}
      Function Fx1(x:real):real;
       var a,b:integer;
       begin
 
       Fx1:=a*(cos(x)/sin(x))+b;
 
       end;
 {Кнопки}
  procedure Key(a1,b1,a2,b2,c:integer; st:string);
   begin
    SetFillStyle(1,4);
    Bar(a1,b1,a2,b2);
    SetColor(c);
    OutTextXy(a1+20,((b1+b2) div 2) ,st)
   end;
   {График}
procedure GraphTable;
 begin
  Setfillstyle(1,15);
       bar(200,40,620,390);
     setColor(8);
     SetLineStyle(0,0,ThickWidth);
       Rectangle(180,10,620,396);
     SetColor(0);
     SetLineStyle(2,0,ThickWidth);
      line(400,10,400,390);
       line(180,220,620,220);
        OutTextXy(610,230,'X');
         OutTextXy(385,230,'0');
          OutTextXy(385,15,'Y');
       SetLineStyle(0,0,ThickWidth);
 end;
 {Интерфейс}
 procedure inter;
  begin
   SetFillStyle(1,2);
    bar(0,0,639,479);
 
  Key(20,410,160,460,1,'NEW');
   Key(200,410,320,460,1,'TABLE');
     Key(350,410,470,460,1,'GRAPH');
       Key(500,410,620,460,1,'EXIT');
    Graphtable;
 
 {Таблица}
    SetLineStyle(0,0,ThickWidth);
     setColor(1);
      Rectangle(20,40,160,335);
       line(20,65,160,65);
        line(90,41,90,335);
 
  {Переменные}
    setColor(1);
     Rectangle(20,345,160,390);
     setcolor(0);
       OutTextXy(25,360,'a=');
        OutTextXy(25,375,'b=');
         setcolor(2);
 end;
 
 {Процедура кнопки TAB}
 var x1,x2,y1,y2,i,k,a,b,t:integer; x,y:real; st1,st2:string;
  procedure Table;
   begin
   st1:='';
     x1:=42; y1:=54; x:=-10; x2:=105; y2:=54;
       for i:=1 to 21 do
        begin
         str(x:6:1,st1);
         y1:=y1+13;
         y2:=y2+13;
          setfillstyle(1,2);
            bar(x2-10,y2,x2+30,y2+6);
         setcolor(0);
         outtextXy(x1,y1,st1);
 
           if t=2 then
           y:=Fx1(x);
 
           if t=1 then
           y:=Fx2(x);
 
         str(y:4:1,st2);
         setcolor(0);
         outtextXy(x2,y2,st2);
         setcolor(1);
         SetlineStyle(0,0,normwidth);
         line(20,y1+10,160,y2+10);
          x:=x+1;
        end;
   end;
 
    {Процедура ввода}
     var chr:char;  sc,h:integer;
      procedure New(x01,x02:integer; str:string; h:real);
       begin
        SetfillStyle(1,15);
         bar(20,2,160,32);
          setcolor(4);
           OutTextXY(24,16,'Введите переменные');
       setcolor(0);
             rectangle(20,2,160,32);
              rectangle(20,345,160,390);
               str:='';
            repeat
             chr:=readkey;
              case chr of
              '0'..'9','.','-':
                if length(str)<6 then
                 begin
                  str:=str+chr;
                 end;
              #8:begin
               SetFillStyle(1,15);
                bar(x01-5,x02-5,x01+40,x02+6);
                Delete(str,length(str),6);
                 end;
       end;
              setfillstyle(1,15);
             bar(x01-5,x02-5,x01+40,x02+6);
            setcolor(0);
            OutTextXy(x01,x02,str);
         until chr=#13;
         if h = 1 then
          begin
            val(str,a,sc);
          end;
         if  h = 2 then
          begin
            val(str,b,sc);
          end;
        SetfillStyle(1,0);
         bar(20,2,160,32);
        setcolor(0);
         rectangle(20,2,160,32);
        setcolor(8);
         rectangle(20,345,160,390);
        Table;
      end;
 
      {Процедура кнопок в окошке}
    procedure intOkno;
    var tu,t:integer;  ch3:char;  ex:boolean;
     begin
      repeat
        if keypressed then begin
         ch3:=readkey;
          if ch3=#0 then
           ch3:=readkey;
          case ch3 of
          {Вверх}
           #72:begin t:=t-1;
                if t = 1 then
                 begin
                  setLineStyle(0,0,ThickWidth);
                  SetColor(8);
                   rectangle(105,155,445,175);
                  setcolor(12);
                  rectangle(105,180,445,205);
                 end;
                if t <= 0 then begin t:=2; end;
                if t = 2 then
                 begin
                  Setlinestyle(0,0,ThickWidth);
                   SetColor(12);
                    rectangle(105,155,445,175);
                    setcolor(8);
                    rectangle(105,180,445,205);
                 end;
               end;
          {Вниз}
           #80:begin t:=t+1;
                 if t > 2 then begin t:=1; end;
                 if t = 1 then
                  begin
                   setLineStyle(0,0,ThickWidth);
                    SetColor(8);
                     rectangle(105,155,445,175);
                    setcolor(12);
                     rectangle(105,180,445,205); end;
                 if t = 2 then
                  begin
                   Setlinestyle(0,0,ThickWidth);
                   SetColor(12);
                    rectangle(105,155,445,175);
                    setcolor(8);
                    rectangle(105,180,445,205);
                  end;
                end;
            #13:begin
                 if t = 1 then begin t:=1; ex:=true; end;
                 if t = 2 then begin t:=2; ex:=true; end;
                end;
           end;
        end;
       until ex=true;
     end;
 
   {Процедура окна}
    procedure okno;
     Var p:pointer; size:word;
      begin
        size:=ImageSize(100,150,450,210);
        GetMem(p,size);
        GetImage(100,150,450,250,p^);
         SetFillStyle(1,7);
          bar(100,150,450,210);
           SetColor(0);
           Rectangle(101,151,449,209);
            Rectangle(105,155,445,175);
            Rectangle(105,180,445,205);
            SetColor(0);
             OutTextXy(110,162,'F(X)=a*cos(x)+b*x');
             OutTextXy(110,187,'F(X)=a*ctg(x)+b');
              intOkno;
 
        PutImage(100,150,p^,0);
        FreeMem(p,size);
        Table;
      end;
 
 {Процедура кнопки граф}
  procedure DrawGraph;
   var y:integer; dx,x,xx,a,b:real;
 begin
  SetViewPort(180,10,620,396, Clipon);
   x:=-10;
    xx:=0;
     dx:=20/4200;
      while x<10 do
      begin
      if t=2 then
        PutPixel(round(xx),178-round(fx1(x)),4);
      if t=1 then
        PutPixel(round(xx),178-round(fx2(x)),15);
         x:=x+dx;
         xx:=xx+0.1;
       end;
     SetViewPort(0,0,639,479,Clipon);
end;
 
   var f:integer;
{Клик мышью}
   var ch2:char;  ex:boolean;
    Procedure mouseclick;
     begin
      repeat
       if keypressed then begin
        ch2:=readkey;
          if ch2=#0 then ch2:=readkey;
               case ch2 of
 
           'N','n':begin New(55,360,'20',1);
                         New(55,375,'15',2); end;
           'T','t':begin Okno; end;
           'G','g':begin DrawGraph; end;
           'E','e':begin CloseGraph; halt; end;
{Изменение кнопок при нажатии стрелок}
  {Стрелка вправо}
    #77:begin
                f:=f+1;
           if f = 5 then begin f:=1;
             if f = 1 then begin
             setcolor(0);
               Rectangle(20,410,160,460);
               Setcolor(1);
                Rectangle(500,410,620,460);
                  Rectangle(350,410,470,460);
                   Rectangle(200,410,320,460);  end;  end;
             if f = 2 then begin
               setcolor(0);
               Rectangle(200,410,320,460);
                Setcolor(1);
                Rectangle(20,410,160,460);
                 Rectangle(500,410,620,460);
                  Rectangle(350,410,470,460)end;
             if f = 3 then begin
              setcolor(0);
              Rectangle(350,410,470,460);
               Setcolor(1);
               Rectangle(200,410,320,460);
                Rectangle(20,410,160,460);
                 Rectangle(500,410,620,460);end;
             if f = 4 then begin
              setcolor(0);
              Rectangle(500,410,620,460);
               Setcolor(1);
               Rectangle(350,410,470,460);
                Rectangle(200,410,320,460);
                 Rectangle(20,410,160,460);   end;
 
         end;
  {Стрелка влево}
    #75:begin
            f:=f-1;
             if f = 1 then begin
             setcolor(0);
               Rectangle(20,410,160,460);
               Setcolor(1);
                Rectangle(500,410,620,460);
                  Rectangle(350,410,470,460);
                   Rectangle(200,410,320,460);  end;
             if f = 2 then begin
             setcolor(0);
               Rectangle(200,410,320,460);
                Setcolor(1);
                Rectangle(20,410,160,460);
                 Rectangle(500,410,620,460);
                  Rectangle(350,410,470,460)end;
             if f = 3 then begin
              setcolor(0);
              Rectangle(350,410,470,460);
               Setcolor(1);
               Rectangle(200,410,320,460);
                Rectangle(20,410,160,460);
                 Rectangle(500,410,620,460);end;
           if f = 0 then begin f:=4;
             if f = 4 then begin
              setcolor(0);
              Rectangle(500,410,620,460);
               Setcolor(1);
               Rectangle(350,410,470,460);
                Rectangle(200,410,320,460);
                 Rectangle(20,410,160,460);   end; end;
 
            end;
 
       #13:begin
              if f=4 then begin  CloseGraph; halt; end;
               if f=3 then begin  DrawGraph; end;
                if f=2 then begin okno; end;
                 if f=1 then begin  New(55,360,'20',1);
                                    New(55,375,'15',2); end;
          {#13}end;
 
               end;
             end;
       if Buttonpressed(500,410,620,460) then begin ex:=true; end;
       if Buttonpressed(350,410,470,460) then begin  DrawGraph; end;
       if Buttonpressed(20,410,160,460) then begin  New(55,360,'20',1);
                                                    New(55,375,'15',2); end;
       if Buttonpressed(200,410,320,460) then begin okno; end;
 
      until ex=true;
       closegraph; halt;
     end;
 
 {Body}
  begin
   GraphInit;
    InitMouse;
     inter;
       SetMouseYRange(0,480);
        Showmouse;
         mouseclick;
          Showmouse;
      end.