вычислить сумму положительных и сумму отрицательных значений функции z=cos (nx+a) sin (nx-a), где n=1,2, ... 10

Надеюсь мое решение правильное, просто не знал что делать с переменными a и x

Program Pr1;

uses crt;

var n, z, x, a, s1, s2:real;

Begin

clrscr;

readln (x, a) ;

z:=1;

n:=1;

s1:=0;

s2:=0;

while n<=10 do begin

z:=cos (n*x+a) * sin (n*x-a) ;

if z>0 then s1:=s1+z

else s2:=s2+z;

n:=n+1;

end;

writeln (' + ', s1:8:3,' - ', s2:8:3) ;

end.