как исправить ошибку?

[Gerain4]

прога считает значение функции (А^2+B^2+ln(x))/cos(x) где в определенный интеграл от e^x*x^2
проблемма собственно в ошибке ,в делении на cos(x)
вот прога
Program z1;

const
Pi:real=3.14159;
H=0.0001;

type
MN=array[1 .. 255]of real;
ME=array[1 .. 255] of boolean;

var
Q:char;
i:integer;
N:byte;
X,Y:MN;
Er:ME;
F,Bb,Bt,B,X0,DX,A:real;

Function IntF(X:real):real;
begin
IntF:=exp(x)*sqr(x)
end;

Procedure TF(X,A,B,Er:real):real; - вот в этом месте ошибка !
begin
if cos(x)=0 then
Er:=true else

TF:=(sqr(A)+sqr(B)+ln(x))/cos(x);
end;

begin
writeln('The bottom limit for integration Bb:');
readln(Bb);

writeln('The top limit for integration Bt:');
readln(Bt);

writeln('Const A:');
readln(A);

writeln('Starting value X0:');
readln(X0);

writeln('Step of change of X0, DX:');
readln(DX);

writeln('Quantity of lines N:');
readln(N);

while(Bb<=Bt) do
begin
F:=IntF(Bb);
Bb:=Bb+H;
B:=B+F*H;
end;
writeln('Numerical value of integral B = ', B:1:4);

begin
X[1]:=X0;
for i:=2 to N do
begin
X:=X[i-1]+DX;
end;
end;
for i:=1 to N do
begin
if Er:=false then
Er:=1 else
Y:=TF(X,A,B);
end;
for i:=1 to N do
begin
writeln('Value of lines N = ', i);
writeln('Value of argument X = ', X:4:4);
if Er:=0 then
writeln('Value of functiоn Y = ', Y:8:4);
else
writeln('Value of functiоn Er =' net kornei');
end;
writeln('Press key for exit');
readln(Q);
exit;
end.

[Katus]

при любых икс? может стоит ln(x) проверить?

[Katus]

нее... понял...
стоит следить за типом...

Procedure TF(X,A,B,Er:real):real; - âîò â ýòîì ìåñòå îøèáêà !
begin
if cos(x)=0 then
Er:=true else

TF:=(sqr(A)+sqr(B)+ln(x))/cos(x);
end;

здесь Er: real; а в описании переменных - boolean. ....

[Gerain4]

а как исправить?=(

[Katus]

удалить ",Er" из строки

Procedure TF(X,A,B,Er:real):real; - âîò â ýòîì ìåñòå îøèáêà !