Построить график функции F(x) на заданном интервале с заданным шагом и вывести значения х и функции F(x) в таблицу в графическом режиме

Uses graph,crt;
const a=-5;b=5;h=0.5;h1=9;x0=140;y0=280;M=4;
 var
  driver,mode,x1,y1:integer;
  x,y:real;
  function f(x:real):real;
  var a_1, b_1: real;
   begin
    a_1:=2;b_3:=4;{ к примеру }
    f:=a_1*exp(x)+b_1*sin(x) ;
   end;
 begin
  clrscr;
  initgraph(driver,mode,'');
  setcolor(12);
  setbkcolor(1);
  line(60,y0,600,y0);
  line(x0,440,x0,20);
  x:=a;
  x1:=70+trunc(M*x);
  y:=f(x);
  y1:=y0-trunc(M*y);
  moveto(x1,y1);
  setcolor(10);
  while x<=b do
   begin
    y:=f(x);
    y1:=y0-trunc(M*y);
    lineto(x1,y1);
    x1:=x1+h1;x:=x+h;
   end;
  settextstyle(0,0,1);
  outtextxy(40,245,'-5');
  outtextxy(230,245,'5');
  outtextxy(150,270,'4');
  settextstyle(0,0,0);
  outtextxy(240,60,'Graphic of function F(x) = a*exp(x)+b*sin(x) ');readln;
  end.