Составить таблицу значений двух функций

Program m;
Var a,b,h,x,f: Real;
n: Integer;
BEGIN;
a:=-1;b:=0;h:=(b-a)/2;
x:=a;
WriteLn(' x | f(x) | g(x)');
WriteLn('------------------------------');
While x<=b do begin
Write(x:5:2, '|f(x)=(4*x+sinx)*(cosx)|' , '|g(x)=1-6cosx|');
WriteLn;
x:=x+h;
end;
WriteLn('------------------------------');
ReadLn;
 
END.

Program m;
Var a,b,h,x,f: Real;
n: Integer;
BEGIN;
a:=-1;b:=0;h:=(b-a)/2;
x:=a;
WriteLn(' x | f(x) | g(x)');
WriteLn('------------------------------');
While x<=b do begin
Write(x:0:4,' ', 4*x+sin(x)*cos(x):0:6 ,' ', 1-6*cos(x):0:6);
WriteLn;
x:=x+h;
end;
WriteLn('------------------------------');
ReadLn;

unit tabula; 
 
interface 
var a,b: real;
procedure f1(a,b:real); 
procedure f2(a,b:real); 
 
implementation 
 
procedure Tab(a,b: real; v:boolean); 
begin 
  if a >=b then b := a+1;
 var h := (b-a) / 2 ;
 var x := a;
 Writeln('╔','═'*5,'╦','═'*20,'╗'); 
 Writeln('║','x':5,'║', (v ? '(4x+sin(x))*cos(x)' : '1-6*cos(x)'):20,'║');  
 Writeln('║','═'*5,'╬','═'*20,'╣'); 
 while x <= b do
  begin   
   Writeln('║',x:5,'║', (v ? (4*x+sin(x))*cos(x) : 1-6*cos(x)):20:15, '║');
   x +=h;
  end;
 Writeln('╚','═'*5,'╩','═'*20,'╝'); 
end; 
 
procedure f1(a,b:real);
Begin
  Tab(a,b,true);
end;
 
procedure f2(a,b:real); 
Begin
  Tab(a,b,false);
end;
 
initialization 
  a := 0; 
  b := 2 
end.

uses tabula;
 
begin
  f1(-1,0);
  f2(-1,0);
  f1(ReadlnInteger('a ='),ReadlnInteger('b ='));
end.