Помогите, пожалуйста!

Через repeat

Var
X,N,m,r:integer;
S,F,St:real;
Begin
Write('X = ');Read(X);
N:=1;
S:=0;
Repeat
   r:=1;
   St:=1;
   Repeat
   St:=St*X;
   r:=r+1;
   Until r>N;
   
   m:=1;
   F:=1;
   Repeat
   F:=F*m;
   m:=m+1;
   Until m>n;
S:=S+St/F;
N:=N+2;

Until N>13;
WriteLn(S);
End.

спасибо большое!