Iterative Fakultätsberechnung klappt nicht

[Thorben86]

Bei mir klappt irgendwie die Iterative berechnung der Fakultät nicht. Ich will jetzt aber nicht hören, dass ich dass auch rekursiv lösen kann^^, die Funktion klappt, brauchs aber auch Iterativ).

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;

wenn n>1 ist, dann gibt der Immer 0 als ergebnis. Wenn ich Sakuras version nehme(in den klammern, ist es das gleiche, bei n>1 kommt auch 0 raus, aber nich tdas richtige ergebnis :evil:

Hab ich da irgend einen Denkfehler drin?