ANTICHAT - Показать сообщение отдельно

Итак у меня началась школа))

вот сегодня была информатика нам дали ДЗ сделать кое что...

Я представлю вам код паскаля...

Тема: Движение по кривой

Суть в том, что смайлик бегает по синусоиде и вырисовывает надпись antichat.

Посколько дома нету возможности проверить код проверьте плиз правильность.

Код:

program antichat;
uses crt;
var i,x,y: integer;
           a: real;
begin
textbackground(9);
clrscr;
for i:= 1 to 360 do
begin
a:= i*pi/180;
x:=round(i/4.5);
y:=round(25+24*sin(a));
gotoxy(x,y);
write('=)');
delay(1500);
gotoxy(x,y);
write('antichat');
end;
end.

кстати если можете выложите код с одной переменной, а то что-то не доходит)