Вчем ошибка?(Паскаль)

[NTFS]

Дано: натуральное n , действительные a1,....,аn Вычислить:
а1+а2*(а2-1)+...+an*(an-1)...(an-n+1)

Не правильно считает,подскажите где ошибка.
Вот код:
program _114;
type k=array[1..100] of integer;
var a:k;n,j,i,r,u:integer;
begin
repeat
writeln('vvod n>3');
readln(n);
until(n>3);
writeln('vvod',n ,' elementov cherez probel');
for i:=1 to n do read(a[i]);
r:=a[1];
u:=1;
for i:=2 to n do begin
for j:=1 to n do
u:=u*(a[i]-j+1);
r:=r+u;
u:=1;
end;
writeln('OTBET:'r);
readln;
readln;
end.

[alexBlack]

for j:=2 to i do u:=u*(a[i]-j+1);