Программа расчета интеграла методом левых прямоугольников

program kr_1;
uses crt;
  var A,B,C,D,E,REZULT:real;
 procedure vvod_parametrov(var A,B,C,D,E:real);
 BEGIN
    CLRSCR;
     WRITELN('Добро пожаловать в программу вычисления интеграла.');
      REPEAT
      WRITE('Введите первую границу: ');
      READLN(A);
      WRITE('Введите вторую границу: ');
      READLN(B);
       IF A>B THEN WRITELN('A должно быть меньше B! повторите ввод.');
       UNTIL A<=B;
    WRITE('Введите C: ');
      READLN(C);
      WRITE('Введите D: ');
      READLN(D);
     REPEAT
     WRITE('Введите точность вычислений: ');
     READLN(E);
      IF (E<=0) or (E>=1) THEN WRITELN('Е должно быть больше 0 и меньше 1! повторите ввод.');
     UNTIL (E>0) AND (E<1);
  end;
 
function INTEGRAL(var A,B,C,D,E:real):real;
  VAR X,PER,PROV,I1,I2,H:REAL;
      N:integer;
BEGIN
     N:=1;
     I1:=0;
     I2:=0;
     REPEAT
     N:=N*2;
     H:=(B-A)/N;
     X:=A;
     I2:=0;
     REPEAT
     IF X<-C THEN
     I2:=I2+(-SQRT(3)*x+d)*h;
     IF (X>=-C) AND (X<=-C/2) THEN                                         {здесь выдает ошибку}
     I2:=i2+D*h;
     IF X>-C/2 THEN I2:=i2+((c*c*c)/(sqr(c)+sqr(x)))*h;
     X:=X+H;
     UNTIL X>=B;
      PROV:=ABS(I1-I2);
      I1:=I2;
      UNTIL PROV<E;
      INTEGRAL:=I2;
     END;
 
procedure vyvod(A,B,C,D,E,REZULT:real);
BEGIN
     REZULT:=INTEGRAL(A,B,C,D,E);
     WRITELN('Ответ: ',REZULT:10:7);
     READLN;
     readkey;
END;
 
begin
vvod_parametrov(A,B,C,D,E);
vyvod(A,B,C,D,E,REZULT);
end.