Есть код!!

[Danilyuk]

У меня имеется код, но я нимогу понять в чём тут ошибка. Посмотрите,помогите пожалуйста.
Шкнит почемуто на Readln (n) на 12 строке.

var Rez: longint;
function Faktorial (n:integer)
begin
if n= 0 or n=1 then 
faktorial=1 
else 
faktorial=n*faktorial(n-1)
endif;
End;
Begin 
Readln (n);
rez:=0;
for i:=1 to n do
rez:=rez+1/faktorial(n);
writeln(rez);
end.

[Yogik™]

Может вот так?..

   
function Faktorial (n:integer): Real;
  begin
    if (n=0) or (n=1) then
       Faktorial:=1
    else
       Faktorial:=n*faktorial(n-1);
  end;

var
   Rez: Real;
 Input: Integer;
     i: Integer;

begin
  Readln (Input);
  rez:=0;
  for i:=1 to Input do begin
    rez:=rez+1/faktorial(Input);
    writeln(rez);
  end;
end.