Вычислить выражение (Turbo Pascal)

[siato]

Вычислить следующие выражение
Х - произвольное число

y=[x*sin(x+x*sin(x+sin(x+...x*sin(x+x* sinx)...)))]
___________________________________ ________________________________
Проверьте пожалуйста:

Var x,y,ak,a: real;
q:char;
k:integer;
Begin
Gotoxy(27,20);
write('vvedite x =  ');
read(x);
a:=x;
for k:=1 to 100 do begin
        ak:=x+x*sin(a);
         a:=ak;
        end;
        Gotoxy(27,25);
       write('xk= ',ak:7:3);

[Stilet]

Вообще похоже на правду.