Сформировать массив X[N], n-й член которого определяется формулой X(N) = 1/N!

[GUnt]

Помогите найти ошибку вкоде решения:
Задача:Сформировать массив X[N],n-й член которого определяется формулой X(N)=1/N!(факториал)

Мой код:

program FACTORIAL;
x: array[1..n] of integer;
var k,n :integer;
var y:real;
begin

writeln ('vvedite n');
readln (n);

function factor(n:integer): longinteger;
begin 
if n=1 then factor:=1
else factor:=n*factor(n-1);
end;
y:=1/factor(n);

randomize;
for k:=1 do 
x[n]:=Random(y-1)+1;
writeln (' konechniy massiv');
write(x[n]);
end.

[Tkirill]

uses crt;
var
mas:array[1..100] of real;
n,i:integer;
function fact(n:integer):longint;
begin
if n=1 then fact:=1
else fact:=n*fact(n-1);
end;
begin
clrscr;
write(' Введите n -> ');
readln(n);
writeln;
for i:=1 to n do
begin
mas[i]:=1/fact(i);
end;
for i:=1 to n do
write(mas[i]:4:4,' ');
readln;
end.