Нельзя преобразовать тип real к integer

function f(x:real):real;
var s:real;
begin
 if x<=-pi then s:=0
 else if x>pi/2 then s:=1
 else s:=sin(x);
f:=s;
end;
 
procedure input(var n:integer;var a:real;var b:real; var e:real);
begin
    n:=10;
    writeln('Число разбиений: ',n);
 repeat
    write('Введите нижнюю границу интегрирования: '); readln(a);
    write('Введите верхнюю границу интегрирования: '); readln(b);
    if (a>b) then writeln ('a должно быть меньше b. Повторите ввод! ');
 until (a<b);
 repeat
    write('Введите точность вычисления интеграла e (1>e>0): '); readln(e);
 until (e>0)  and (e<1);
 end;
 
 procedure integration(var ln1:real; var ln2:real;var xi:real; var fi:real; b,n,i:integer; e,h,a:real);
 begin
 h:=(b-a)/n;
 ln1:=0;
 ln2:=2*e;
 repeat
   ln1:=ln2;
   h:=(b-a)/n;
   ln2:=0;
   for i:=1 to n do
   begin
    xi:=a+(i-1)*h;
    fi:=F(xi);
    ln2:=ln2+fi*h;
   end;
  n:=n*2;
 until abs(ln1-ln2)<e;
 end;
 
 procedure output(var a:real; var b:real; var ln2:real; var e:real);
 begin
 writeln('Интеграл на промежутке от ',a:0:2,' до ',b:0:2,' равен: ');
 writeln (ln2:1:3,' с точностью ',e:1:3);
 end;
 
 
 var
 a,b,e,h,xi,fi,ln1,ln2:real;
 s:longint;
 n:integer;i:integer;
 begin
 input(n,a,b,e);
 integration(ln1,ln2,xi,fi,n,b,i,e,h,a);
 output(a,b,ln2,e);
 end.

procedure integration(var ln1:real; {1} var ln2:real; {2} var xi:real; {3} var fi:real; {4}
 b, {5} n, {6} i: integer; {7}
 e, h, a:real);
...
 
var ... b, ... : Real;
 
integration(ln1,ln2,xi,fi,n,
b,{6}
i,e,h,a);