Вычисление факториона

uses crt;
type
 TCifri = array[1..10] of integer;
  var x,i,pr,n,m:integer;
      res,res2,res3:longint;
      cifri:TCifri;
      y:TCifri;
 function fact(N:longint):longint;
begin
 if N=0 then
  fact:=1
 else
  fact:=fact(N-1)*N
end;
  function factorion(var res2:longint):longint;
  begin
   writeln('Введите значение n=:');
     readln(n);
       writeln('Введите значение m=:');
     readln(m);
     pr:=10*n+50*m;
        i:=1;
     while pr>0  do begin {<--Разлаживаю число на цифры}
      y[i]:=pr mod 10;
      cifri[i]:=y[i];
      pr:=pr div 10;
      i:=i+1;
     x:=i-1;
   end;
     for i:=1 to x do begin {<--Вычисляю факториал каждой цифры}
   res:=fact(cifri[i]);
   res2:=res+res2;       {<--Суммирую факториалы}
     end;
  end;
  begin
     clrscr;
   factorion(res2);
  writeln('Результат вычисления факториона** ','10*',n,'+50*',m,':',
  #13#10,res2);
  writeln('Нажмите любую клавишу для выхода*');
readkey;
end.

uses crt;
 
function fact(N:longint):longint;
begin
   if N=0 then fact:=1
   else fact:= N * fact(N-1)
end;
   
function factorion(v:longint):longint;
begin
   if v = 0 then factorion := 0
   else factorion := fact(v mod 10) + factorion(v div 10);
end;
     
var
   n, m : integer;
   res : longint;
begin
   clrscr;
   writeln('Введите значение n=:');
   readln(n);
   writeln('Введите значение m=:');
   readln(m);
   res := 10*n + 50*m;
   writeln('Результат вычисления факториона** ',
      '10*',n,'+50*',m,':', #13#10, factorion(res));
   writeln('Нажмите любую клавишу для выхода*');
   readkey;
end.