Problema con matrices que no logro resolver

[OSKR]

galmacland:

en la primera se almacenen los 10 primeros numeros naturales, empezando desde 0

Veo q no se ha tomado en cuenta el "0" y q su factorial es 1
Modificando el código de seoane

Código Delphi [-]
var
  i: integer;
  m1, m2: array[0..10] of Cardinal;
begin
  for i:= 0 to 10 do
  begin
     m1[i]:= i;
     m2[i]:=1;
     if(i>1)then
       m2[i]:= m2[i-1] * i;
  end;
end;

//Nota: No lo he probado