Нарисовать квадрат используя procedure LineTo. (Паскаль)

Спасибо! А как сделать, чтобы он был ну типа как по-середине? а не приплюснутый к левому краю? ну какие значения использовать нужно? а то я его смог отодвинуть, а верхняя линия вываливается (квадрата).

program B;uses graphABC;beginLineTo(400, 0);LineTo(400,400);LineTo(0,400);LineTo(0,0);end.