Крестики-нолики, написать условие выигрыша

uses GraphABC,Events;
var  i,j:integer;
     a:array[0..10,0..10]of integer;
     ok,k:integer;
     yes:boolean;
 
procedure Init;
begin
 for i:=1 to 3 do
     for j:=1 to 3 do
       rectangle(100*i+60,100*j-40,100*i+160,100*j+60);
end;
 
procedure Win;
Begin
     // здесь выполнить проверку на выйгрыш
End;
 
 
procedure Nolik(x,y:integer);
Begin
   SetPenWidth(15);
   SetPencolor(clRed);
   Circle(100*x+110,100*y+10,40);
   SetPenWidth(1);
   SetPenColor(clBlack);
end;
 
procedure Krestik(x,y:integer);
Begin
   SetPenWidth(15);
   SetPenColor(clBlue);
   MoveTo(100*x+70,100*y-25);
   LineTo(100*x+150,100*y+45);
   MoveTo(100*x+150,100*y-25);
   LineTo(100*x+70,100*y+45);
   SetPenWidth(1);
   SetPenColor(clBlack);
end;
 
procedure Comp_move;
var
   i,j:integer;
begin
    for i:=1 to 9 do
        for j:= 1 to 9 do
          if a[i,j] = 0
             then begin
                      a[i,j]:= 3;
                      nolik(i,j);
                      exit;
                  end;
end;
 
procedure MouseDown(x,y,mb:integer);
begin
   x:= x-60;
   y:= y+40;
 
   x:= x div 100;
   y:= y div 100;
 
  if a[x,y] = 1 then exit;
 
  if a[x,y]>1 then exit;
 
 
  if a[x,y] = 0
     then begin
            krestik(x,y);
            a[x,y]:=2;
            ok:=2;
          end;
 
   Comp_move;
 
end;
 
BEGIN
 
SetWindowCaption('Крестики нолики');
SetWindowSize(600,400);
 
 ok:=1;
 Yes:=false;
 k:=1;
 
 for i:=0 to 10 do
    for j:=0 to 10 do a[i,j]:=1;
 
 for i:=1 to 3 do
    for j:=1 to 3 do
       a[i,j]:=0;
 
 Init;
 
 Nolik(2,2);
 a[2,2]:=3;
 
  onMouseDown:=MouseDown;
 
 
END.