Помогите пожалуйста с PASCAL ABC

Ошибку пишет неверная вещественная операция
.
Значения
А-0.76
В-5.38482
N-1
G1-40
G2-43.6
eps-0.001
km-50
x-1 или 2 (произвольно)
Вот сама программа
program swagina;
type mas= array [1..10] of real;
var
x,y:mas;
A,B,D,G1,G2,h,eps,I1,exp,I2: real;
i,N: byte;
j,k,KM,g: integer;
Function F(D:real):real;
begin F:=ln(cos(D/31));
end;
begin;
writeln('A');
readln(A);
writeln('B');
readln(B);
writeln('N');
readln(N);
writeln('G1');
readln(G1);
writeln('G2');
readln(G2);
writeln('eps');
readln(eps);
writeln('KM');
readln(KM);
k:=4;
writeln('Vvodite x');
for i:=1 to N do
begin
readln(x);
end;
for j:=1 to KM do
begin
D:=G1;
I2:=F(D);
h:=(G2-G1)/k;
I1:=1;
repeat
D:=D+h;
I2:=I2+F(D);
J:=j+1;
until
j>=k;
I2:=h*I2;
if Abs(I1-I2)>eps then
begin
I1:=I2;
k:=2*k;
end;
if Abs(I1-I2)<=eps then
begin
J:=KM;
writeln('integeral =', I2:10:5);
end;
writeln('No');
B:=I2;
end;
for i:=1 to N do
if x>1 then y:=x*x/sqrt(a*x+b) else y:=(b*a*x*ln(exp));
writeln('results');
for i:=1 to N do
writeln('x[',i,']=',x:10:5,',','y[',i,']=',y:10:5);
end.