Problema con matrices que no logro resolver

[D-MO]

Código Delphi [-]
program factorial; var
i,i:Integer; f : Double;    m1 : Array[0..9] of integer;    m2 : Array[0..9] of Double;     
begin
for i:=0 to 9 do
begin
m1[i]:=i; 
end; 
for i:=0 to 9 do
begin
m2[j]:=1; for j:=0 to m1[i] do
m2[j]:=m2[j]*j;
end; 
end;

supongo que algo asi te podria funcionar, no lo he provado pero me parece que si funciona. Aunque creo que por el hecho de iniciar de "0" es posible que todos los resultados sena "0"

saludos.