Pascal faktorialis, variacio problema (? )

Nem tudom miert, de a fuggveny csak a faktorialist szamolja ki rendesen, a variaciot mar nem...mieert??

Variacio keplete : V n elembol k-an-kent=(n!)/(n-k)!

Itt van a program=>>

program asdf;

uses crt;

var i,n,szorz,seged,k:integer;

function faktorialis(n:longint):longint;

begin {function begin}

if n=0 then faktorialis:=1;

for i:=1 to n do begin

szorz:=szorz*seged;

faktorialis:=szorz;

inc(seged);

end;

end;

begin

clrscr;

szorz:=1;

seged:=1;

write('n=');readln(n);

write('k=');readln(k);

writeln(n,'!=',faktorialis(n));

writeln('Variacio ',n,'elembol ',k,'-kent=',(faktorialis(n) div faktorialis(n-k))); { ez nm jo}

readln;

end.