Brauche Hilfe beim Heron Algorhytmus

[Estaaaa]

Ich muss für die Schule ein Programm schreiben was Wurzeln nach Heron berechnet ... Ich versuche es als aber es klapp nicht und das Programm was ich geschreiben habe hängt sich auf.. :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var 
  w,a,b,F,x,y: Real;
begin
  memo1.Clear;
  w:=strtofloat(edit1.text);
  F:=w;
  b:=w;
  a:=1;
  Repeat
  begin
    memo1.Lines.Add(floattostr(x));
    x:=(a+b)/2;
    y:=F/x;
    a:=x;
    b:=y;
  end;
  until x=y;
end;

Kann mir bitte jemand helfen und sagen was an dem Programm falsch ist ... wäre sehr dankbar darüber weis echt nicht merh weiter..

Esther

[edit=Luckie]Sourcecode formatiert. Das nächste mal bitte selber machen. Mfg, Luckie[/edit]