Опять туплю с паскалем,хеелп!!!

Var
N,i:integer;
S,C:real;
Begin
S:=0;
Write('N = ');Read(N);
For N:=1 to N do
    Begin
    C:=0;
    For i:= 1 to N do
        C:=C+Sin(i);
    S:=S+1/C;
    End;
Write('S = ',S);
End.