Крестики-нолики

uses GraphABC, Events;
procedure mousedown(x, y, m:integer);
begin
  setwindowwidth(600);
  setwindowheight(600);
    if (x<200) and (y<200) then
      begin
    line(0,0,200,200);
    line(200,0,0,200);
    end;
    if (x>200) and (y<200) and (x<400) then
      begin
    line(200,0,400,200);
    line(400,0,200,200);
    end;
    if (x>400) and (y<200) then
      begin
    line(400,0,600,200);
    line(600,0,400,200);
    end;
    if (x<200) and (y>200) and (y<400) then
      begin
    line(0,200,200,400);
    line(200,200,0,400);
    end;
    if (x>200) and (x<400) and (y>200) and (y<400) then
      begin
    line(200,200,400,400);
    line(400,200,200,400);
    end;
    if (x>400) and (y>200) and (y<400) then
      begin
    line(400,200,600,400);
    line(600,200,400,400);
    end;
    if (x<200) and (y>400) then
      begin
    line(0,400,200,600);
    line(200,400,0,600);
    end;
    if (x>200) and (x<400) and (y>400) then
      begin
    line(200,400,400,600);
    line(400,400,200,600);
    end;
    if (x>400) and (y>400) then
      begin
    line(400,400,600,600);
    line(600,400,400,600);
    end;
    end;
begin
  line(200,0,200,600);
  line(400,0,400,600);
  line(0,200,600,200);
  line(0,400,600,400);
  onmousedown:=mousedown;
end.