Iterative Fakultätsberechnung klappt nicht

[Thorben86]

Bei mir klappt die Iterative berechnung der Fakultät irgendwie nicht.

Delphi-Quellcode:

function fak_it (n : Integer):int64 ;
   Var index: Integer;
Begin

   If (n = 0) or (n = 1) then
      fak_it := 1
   Else
      begin
   For Index := n  downto 1 do
   result := result * Index;
      end; 

    {repeat
    Result := Result * n;
    Dec(n);
    until n <= 1; 
 } 

End;

Bei mir liefert der bei n>1 immer 0 als ergebnis. Wenn ich die Version von Sakura nehme ( ist das in den klammrn), kommt bei n>1 auch 0 raus :wiejetzt: ), aber nicht der richtige Wert. :evil:

Hab ich irgendeinen denkfehler gemacht?