Pascal/Turbo Pascal - Necesito ayuda con un programa de factoriales

{Mira esto}

program fatorial;

  uses

   crt;

  var

    numero : integer;

    i, result : integer;

   function factor(n : integer) : integer;

   begin

     result := 1;

     for i := 1 to n do

     begin

     result := result * i;

     end;

     factor := result;

   end;

   begin

     clrscr;

     write('   Entre Numero : ');

     readln(numero);

     if numero > 12 then

     numero := 12;

     writeln;

     writeln('  El Factorial Es = ',factor(numero));

     writeln;

     writeln('    Pulse Una Tecla');

     readkey;

   end.