procedure DrawRectangle(x1,y1,x2,y2: integer);  

       Рисует границу прямоугольника, заданного координатами противоположных вершин (x1,y1) и (x2,y2)

От указания переменных зависит что у тебя будет прямоугольник или квадрат