Вложенные циклы Delphi7

[warma2d]

Здравствуйте!
Подскажите пожалуйста как исправить эту программку.



Препод почему-то сказал, что нужно поменять циклы. Но у меня это сделать не получается

program rabota419;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  math;

var
  k,j,x,i:integer;
  p,s:real;


begin
  writeln('Enter x');
  readln(x);

   p:=1;
   k:=1;
      for i:=1 to k do
      begin
        s:=1;
        for k:=2 to 12 do
        s:=s*power(x,k)*sin(Pi*k*i/4);
        p:=p*s;
      end;

     writeln('p=',p:2:3);
     readln;
     end.

Помогите пожалуйста!
Заранее благодарю!