Всем доброго времени суток!Если можете помогите пожалуйста переделать программу под сдвиг единицы по синусойде

[Ddradok]

Всем доброго времени суток!Если можете помогите пожалуйста переделать программу под сдвиг единицы по синусоиде. Исходник:

program lena1;
uses Crt;
var
  A       :array [1..500] of integer;
  i,j,n,k :integer;
  x       :real;

 begin
  clrscr;
 write( ' n = ');readln(n);
 k:=1;
 for j:=1 to n do A[j]:=0;
 gotoXY(1,10);
{ for j:=1 to n do write(A[j]);}
 for j:=1 to n do
  begin
  gotoXY(j,j);
  if k>11 then k:=1;
  textcolor(k);
  k:=k+1;
  write('1');
  delay(10000);
  gotoXY(j-1,j);write(' ');
  end;

 readkey;
 end.

Заранее спасибо и с наступающим!=)