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

uses crt;
const nmax=100;
type mas=array[1..nmax] of real;
procedure Massiv(var m:mas;n:byte);
var i:byte;
begin
writeln('Массив An=A(n-1)/n - обратные факториалы:');
m[1]:=1;
write(m[1]:10:7);
for i:=2 to n do
 begin
  m[i]:=m[i-1]/i;
  write(m[i]:10:7);
 end;
readln
end;
var x:mas;
    n:byte;
begin
textbackground(0);
clrscr;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
Massiv(x,n);
end.