Построение квадрата — Pascal(Паскаль)

uses graph, crt;

var
  gd, gm, x, y, side: integer;

begin
  initgraph(gd, gm, 'c:\bp\bgi');
  outtextxy(30, 0, 'Введите сторону квадрата.');
  readln(side);
  clearviewport;
  outtextxy(30, 0, 'Введите координаты центра квадрата(X и Y через ENTER)');
  readln(x);
  readln(y);
  clearviewport;
  rectangle(x - side, y - side, x + side, y + side);
  repeat
    ;
  until keypressed;
  closegraph;

end.