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

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 (ae>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)