Запустил прогу, не вижу синусоиды!!!! Выглядит примерно так
=)antichat=)antichat=)antichat=)antichat=)antichat =)antichat и т.д.
Так и надо?
По поводу одной переменной. Тут идея должна быть такая:
движение по синусоиде это y=sin(x). из этого видно что нам достаточно переменной х (одной), а вместо y можно подставлять выражение sin(x).
Но это только теория, на паскале нужно еще будет округлять и адаптировать к координатам экрана. Но это уже дело техники, ядро програмки будет все таки y=sin(x). Если не додумаешь код самостоятельно, пиши.