Вычислить сумму знакопеременного ряда

program sin_teilor;
Uses crt;
var x, degx, sint, e: real;
i, fuck, z: integer;
Begin
ClrScr;
TextColor(3);
Write('Vvedite x: ');
Readln(x);
TextColor(6);
Write('Vvedite tochnost` e: ');
Readln(e);
degx := x; {x v stepeni}
fuck := 1; {znachenie faqtoriala v znamenatele}
sint := 0; {pervy`i` e`lement v razlozhenii}
i := 1; {schyotchiq}
z := 1; {znaq e`lementa}
while(degx / fuck >= e) do 
begin {do tekh por, poqa e`lement v razlozhenii ne men`she tochnosti}
sint := sint + z * degx / fuck;
inc(i, 2);
degx := degx * x * x;
fuck := fuck * (i-1) * i;
z := z * (-1); {smena znaqa n-nogo chlena}
end;
TextColor(5);
Writeln('Kolichestvo e`lementov v razlozhenii = ',i div 2);
TextColor(2);
Writeln('Znachenie sin(',x:6:6,')= ',sint:6:6);
TextColor(4);
Writeln('Znachenie bibliotechnogo sinusa: ',sin(x):6:6);
Readln;
End.