Проверьте прогу на ошибки. если не сложно поясните ее содержание

[СветОК]

Вычислить значение определенного интеграла с заданной точностью ε.
Программа должна вычислять интеграл с заданной точностью.
Входные параметры: границы интервала [a, b], точность.
Выходные: значение интеграла, количество разбиений n.
Значение границ интервала и точность ввести с клавиатуры в главной программе. Значение интеграла и количество разбиений вывести в главной программе. Метод трапеций


функция - 1/lnx интервал - [2;3] вычислить методом трапеций

вот такая прога ...прошу проверить ее и обьяснить ее содержание

program z6;
uses crt;
var x,I1,I2,t,m,sum:real;
a,b,n:integer;
function f (z:real):real;
begin
f:=1/ln(z);
end;
function h (n:integer):real;
begin
h:=(b-a)/n;
end;
begin clrscr;
write('a,b = ');
readln(a,b);
write('t= ');
readln(t);
m:=(f(a)+f(b))/2;
I1:=h(1)*m;
I2:=h(2)*(m+f(a+h(2)));
n:=2;
while abs(I2-I1)>t do
begin
n:=n*2;
x:=a;
sum:=0;
while x<b do
begin
x:=x+h(n);
sum:=sum+f(x);
end;
I1:=I2;
I2:=h(n)*(m+sum);
end;
writeln(I2:10:5,' ',n);
readln;
end.

[p51x]

Проверьте прогу на ошибки

Вставляйте в компилятор. Компилируется - синтаксических ошибок нет. Делает то, что надо - логических тоже нет.