Pascal/Turbo Pascal - programa pascal urgente

{Espero sea esto lo que pides pues no entiendo muy bien lo que pones}

program factorial;

 {$N+}

 uses

   crt;

  CONST

   fact = 500;

  type

    tabla = array[0..fact] of extended;

  var

    cont : integer;

   function factorialnum(t : integer) : extended;

   var

     x : integer;

     e : extended;

   begin

        cont := 0;

        if t = 0 then

        e := 1

    else

       begin

          if (t > 0) and (t <= fact) then

          begin

            e := 1;

            for x := 1 to t do

            e := e * x;

            end

       else

          e := 0;

       end;

        cont := x;

        factorialnum := e;

    end;

  begin

    clrscr;

    writeln('   factorial = ',Factorialnum(5):0:0,'  De : ',cont);

    readkey;

 end.