Игра «Попади в центр мишени» -Pascal(Паскаль)

uses graph, crt;

var
  gd, gm, x, y: integer;
  C: CHAR;

label 1;

begin
  initgraph(gd, gm, 'c:\bp\bgi');
  setfillstyle(2, 1);
  bar(220, 140, 420, 340);
  setfillstyle(4, 9);
  bar(270, 190, 370, 290);
  outtextxy(30, 0, 'введите координаты(x и y через ENTER)');
  outtextxy(30, 10, 'Press Esc to Exit');
1:
  C := readkey;
  if C = chr(27) then
    halt;
  gotoxy(1, 1);
  readln(x);
  gotoxy(1, 2);
  readln(y);
  putpixel(x, y, 12);
  IF (x < 220) OR (x > 420) OR (y < 140) OR (y > 340) THEN
  begin
    outtextxy(20, 400, '0 очков');
    GOTO 1;
  end;
  IF (x >= 220) AND (x < 420) AND (y >= 140) AND (y < 190) OR (x >= 220) AND
    (x < 420) AND (y >= 290) AND (y < 340) THEN
  begin
    outtextxy(20, 400, '5 очков');
    goto 1;
  end;
  IF (x >= 270) AND (x < 370) AND (y >= 190) AND (y < 290) THEN
    outtextxy(20, 400, '10 очков');

  begin
    GOTO 1;
    if C = chr(27) then
      halt;
  end;

end.