Ошибка: неверное количество фактических параметров.

type
tmy=array [1..30,1..30] of real;
tmx=array [1..30] of real;
ter=array [1..30,1..30] of integer;
var
   ma,mx:tmx;
   y:tmy;
   er:ter;
   b,a,x,xn,dx,da,an,ak,c,d,eps:real;
   i,j,k,m,n:integer;
 
 
   procedure fa(da,an:real; var ma:tmx; var n:integer);
   var i:integer;
   a:real;
   begin
   a:=an;
   for i:=1 to n do
            begin
            ma[i]:=a;
            a:=a+da;
            end;
   end;
 
   procedure fx(m:integer; var mx:tmx);
   var j:integer;
   begin
   for j:=1 to m do
       begin
       read(mx[j]);
       end;
   end;
 
   {Ïðîöåäóðà âû÷èñëåíèÿ B}
   function f1(x:real):real;
   begin
      f1:=(x*x+1)*(x*x+1)*exp(2*x)*x;
   end;
 
   procedure fb(c,a,b:integer; eps:real; var i2:real);
   var h,t,i1:real;
   k,i,p:integer;
   begin
   if a>b then
      begin
           c:=a;
           a:=b;
           b:=c;
      end;
   i1:=0; i2:=0;
   k:=4; p:=1;
   repeat
   t:=a;
   h:=(b-a)/k;
   i2:=f1(t);
   i:=1;
   repeat
   t:=t+h;
   i2:=i2+f1(t);
   until i>=k-1;
   i2:=i2*h;
   if (abs(i1-i2)>eps) then
      begin
           i1:=i2;
           k:=k*2; i2:=0;
      end
   else p:=0;
   until p=0;
   end;
 
   procedure fy(n,m:integer; b:real; var er:ter;var ma:tmx; var mx:tmx; var y:tmy);
   var i,j:integer;
   w,q:real;
   begin
   er[1,1]:=1;
   for i:=1 to n do
       begin
       for j:=1 to m do
           begin
           if (Mx[j]=0) or (b=0) then
           er[i,j]:=1
           else
               begin
               er[i,j]:=0;
               y[i,j]:=(a/b)*ln((x*x)/2+sqrt(1+x*x));
               end;
           end;
       end;
       
   end;
 
   procedure fout(n,m:integer;var ma,mx:tmx;var y:tmy;var er:ter);
   var i,j:integer;
   begin
   write ('a= ',ma[i],': ');
   for j:=1 to m do
       begin
       if er[i,j]=1 then
       writeln ('x= ',mx[j]:5:2, ' : ', 'Ôóíêöèÿ íå îïðåäåëåíà')
       else
           begin
           writeln ('x= ', mx[j]:5:2, ' : ' , 'y= ', y[i,j]:7:5);
           end;
       end;
   end;
 
   begin
   writeln ('Ââåäèòå çíà÷åíèÿ ïåðåìåííûõ: M, An, Da, N');
   readln(m,an,da,n);
   writeln('M= ',m,'An= ',an:6:4, 'Da= ',da:6:4, 'N= ',n);
   fa(da,an,ma,n);
   fx(m,mx);
   readln(eps);
   fb(0.81,0.62,b,eps);
   fy(n,m,b,er,ma,mx,y);
   fout(n,m,ma,mx,y,er);
   end.

 procedure fb(c,a,b:integer; eps:real; var i2:real);

fb(0.81,0.62,b,eps);