Игра Крестики-нолики На Pascal ABC

program lol;
uses graphabc, crt;
var x,y,x1,y1,x2,y2,f:integer; k1:char;
i,kx,ky,j,h,g,k:integer; fl:boolean;
b:array [1..3,1..3] of integer;
begin
    for i:=1 to 3 do
    for j:=1 to 3 do
    b[i,j]:=0;
    rectangle(60,40,420,400);
    line(80,280,400,280);
    line(80,160,400,160);
    line(180,380,180,60);
    line(300,380,300,60);
    x:=120; y:=100;
    setpencolor(clred);
    circle(x,y,30);
    f:=0;
    
    repeat
    if keypressed then
    begin
       k1:=readkey;
       if (k1=#77) and (x<360) then
       begin
          setpencolor(clblack);
          circle(x,y,30);
          x:=x+120;
          setpencolor(clred);
          circle(x,y,30);
       end;
       if (k1=#80) and (y<=360) then
       begin
          setpencolor(clblack);
          circle(x,y,30);
          y:=y+120;
          setpencolor(clred);
          circle(x,y,30);
       end;
       if (k1=#72) and (y>120) then
       begin
          setpencolor(clblack);
          circle(x,y,30);
          y:=y-120;
          setpencolor(clred);
          circle(x,y,30);
       end;
       if (k1=#75) and (x>120) then
       begin
          setpencolor(clblack);
          circle(x,y,30);
          x:=x-120;
          setpencolor(clred);
          circle(x,y,30);
       end;
       if (k1=#13) then
       begin
            i:=y div 120;
            j:=x div 120;
            if b[i,j]=0 then
            begin
               setpencolor(clred);
 
               floodfill(x,y,clred);
               b[i,j]:=1;
               f:=f+1;
               fl:=false;
               if f>=5 then
               begin
                   if ((b[1,1]=1)and (b[1,2]=1)and (b[1,3]=1)) or
                   ((b[2,1]=1)and (b[2,2]=1)and (b[2,3]=1)) or
                   ((b[3,1]=1)and (b[3,2]=1)and (b[3,3]=1)) or
                   ((b[1,1]=1)and (b[2,2]=1)and (b[3,3]=1)) or
                   ((b[1,1]=1)and (b[2,2]=1)and (b[3,3]=1)) or
                   ((b[1,1]=1)and (b[2,2]=1)and (b[3,3]=1)) or
                   ((b[1,1]=1)and (b[2,2]=1)and (b[3,3]=1)) or
                   ((b[3,1]=1)and (b[2,2]=1)and (b[1,3]=1))
                   then begin
                     gotoxy(550,30);
                     write('Âû ïîáåäèëè!');
                     fl:=true;
                     f:=9;
                   end;
              end;
 
           if f=9 then fl:=true;
           repeat
           randomize;
           if f=1 then
           begin
             kx:=1+random(3);
             ky:=1+random(3);
             i:=ky;
             j:=kx;
             end
             else
             begin
             for h:=1 to 3 do
             begin
             k:=0;
             for g:=1 to 3 do
             begin
             if b[h,g]=1 then k:=k+1;
             if b[h,g]=0 then j:=g;
             end;
             if k=2 then i:=h;
             end;
             kx:=i;
             ky:=j;
             end;
             
             if b[i,j]=0 then
             begin
               setpencolor(clgreen);
               line(90+120*(kx-1),90+120*(ky-1),150+120*(kx-1),150+120*(ky-1));
               line(90+120*(kx-1),150+120*(ky-1),150+120*(kx-1),90+120*(ky-1));
               
               b[i,j]:=2;
               fl:=true;
               
               f:=f+1;
               if f>=6 then
            begin
            if ((b[1,1]=2)and (b[1,2]=2)and (b[1,3]=2)) or
                   ((b[2,1]=2)and (b[2,2]=2)and (b[2,3]=2)) or
                   ((b[3,1]=2)and (b[3,2]=2)and (b[3,3]=2)) or
                   ((b[1,1]=2)and (b[2,2]=2)and (b[3,3]=2)) or
                   ((b[1,1]=2)and (b[2,2]=2)and (b[3,3]=2)) or
                   ((b[1,1]=2)and (b[2,2]=2)and (b[3,3]=2)) or
                   ((b[1,1]=2)and (b[2,2]=2)and (b[3,3]=2)) or
                   ((b[3,1]=2)and (b[2,2]=2)and (b[1,3]=2))
                   then begin
                   gotoxy(550,30);
                   write('Âû ïðîèãðàëè!');
                   
                   fl:=true;
                   f:=9;
                   end;
                   
                   end;
                     end;
                     until (fl=true);
                     end;
                 end;
                 end;
                 until f=9;
                 
 
 
readln;
 
 
end.