Funktion deklarieren oder nicht?

[Blup]

Hier wegen der Vollständigkeit eine funktionierende rekursive Variante:

Delphi-Quellcode:

procedure zaehler(var za: Integer; x, y, a, b: Real);
var
  x2, y2: Real;
begin
  if za = 100 then
    Exit;

  x2 := x * x;
  y2 := y * y;
  if (x2 + y2) >= 4 then
    Exit;

  Inc(za);
  zaehler(za, x2 - y2 + a, (2 * x * y) + b, a, b);   
end;