А координаты пляшут, поскольку вы повторяете все действия на одном месте - ведь после цикла ни одна переменная у вас не изменилась! Кроме того, похоже, есть проблемы с пониманием работы lineto. Фишка в том, что эта процедура рисует линию из текущей точки в точку, координаты которой указаны в параметрах процедуры. Следующая lineto рисует линию ИЗ НОВОЙ ТОЧКИ! См. пример.