Bitte Helft mir(Regula-Falsi-Nullstellenberechnung)

[Menno]

Ich habe ein Problem.
Ich muss morgen ein Programm abgeben, was nicht funzt, für euch ist es vielleicht ein Kinderspiel, da ich erst mit delphi angefangen habe.
Davon hängt meine Zensur ab, wäre toll, wenn mir einer helfen könnte!
Ich brauche ein prog was die Nullstelle füer die Funktion:
f:=x*x*x+x*x-8*x-12 mit regula falsi bestimmt.
die Formel für die Nullstelle ist:
x0:=x1-f(x1)*(x2-x1)/(f(x2)-f(x1))

x1:=1
x2:=5

falls x0 > 0 setze x2:=x0
falls x0 > 0 setze x1:=x0

until (x2-x1) < 0.001; ///da bin ich mir nicht sicher!

Bitte helft mir!