Deine Schleife bewirkt nichts, du musst die Laufvariable natürlich miteinbeziehen. Ich zeig's mal am Beispiel der Fakultät, darfst du selbst aber gerne verbessern, vielleicht stimmt auch nicht, aber du siehst grob, wie du die Laufvariable verwenden musst.
Delphi-Quellcode:
function fak(n: Integer): Int64
var
fakVar: Int64;
begin
fakVar := 1;
for i := 1 to n do
fakVar := fakVar * i;
result := fakVar;
end;
Die andere Funktion musst di entsprechend erstellen.