Получение другого массива, который будет содержать факториалы значений элементов исходного

const n=30;
var a1,a2:array[1..n] of integer;
    i: integer;
function factorial(j:integer):integer;
var k: integer;
begin
     factorial:=1;
     for k:=1 to j do factorial:=factorial*k;
end;
begin
     for i:=1 to n do x2[n-i+1]:=factorial(x1[i]);
end.

for i:=1 to n do
 begin
   factorial:=1;
   for k:=1 to a[i] do factorial:=factorial*k;
   b[i]:=factorial;
 end;

uses crt;
const n=20;
var a1,a2:array[1..n] of integer;
    i,f,k: integer;
begin
    for i:= 1 to n do
                  begin
                    a1[i]:=random (40)-20;
                    write (a1[i],' ');
                  end;
     writeln;
     for i:=1 to n do
                    begin
                      f:=1;
                      for k:=1 to a1[i] do f:=f*k;
                      a2[n-i+1]:=f;
                     end;
     for i:= 1 to n do write (a2[i]:4);
end.

do write (a2[i]:4);

a1[i]:=random (13);

uses crt;
const n=20;
var a1:array[1..n] of integer;
    i,f,k: integer;
begin
     for i:= 1 to n do
                  begin
                    a1[i]:=random (10);
                    write (a1[i],' ');
                  end;
     writeln;writeln;
     for i:=1 to n do
          begin
          f:=1;
              for k:=1 to a1[i] do f:=f*k;
          a1[i]:=f;
          end;
     for i:= n downto 1 do write (a1[i],' ' );
end.