Кто может поправить подпрограмму вычисления интеграла методом Симпсона?

Procedure Simps(x,Eps:real; Km:integer; var Int:real; var Er: integer);
var
U,V, Int1, Y1, Yn, S4, S2, H, Del:real;
I,J,K: integer;
begin
Y1:=F(U);
Yn:=F(V);
Int1:=0;
K:=2;
Er:=1;
J:=1;
repeat
if J=K;
Int:=H*Int/3;
Del:=abs(Int1-Int);
if Del=Km;
end;