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

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

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