По-моему,проще сделать while'ом, примерно так:
k:=1;
t:=1;
while (k<=m) do
begin
t:=t*{...}
k:=k+1;
end;