Помогите на паскале если не сложно=)

[Ddradok]

Ребята помогите пожалуйста. Задание следующие: нужно сделать так, чтобы 1 бегала по синусоиде, заранее спасибо, вот исходник с бегущий 1:
Код:
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.