check inserted

diff --git a/Unit1.pas b/Unit1.pas
index c13aac8..6ac6a35 100644 (file)
--- a/Unit1.pas
+++ b/Unit1.pas
@@ -183,6 +183,11 @@ begin
     x := false;\r
     for j := 0 to 2 do\r
       case List[i][j].Tag of\r
+        Ord(MARU):\r
+          begin\r
+            x := false;\r
+            break;\r
+          end;\r
         Ord(PEKE):\r
           inc(k);\r
         Ord(KARA):\r
@@ -241,7 +246,6 @@ var
     y := false;\r
     for m := 0 to 2 do\r
       with List[i][m] do\r
-      begin\r
         case Tag of\r
           Ord(KARA):\r
             begin\r
@@ -252,8 +256,7 @@ var
           Ord(PEKE):\r
             y := true;\r
         end;\r
-      end;\r
-    if (x = true)and(y = true) then\r
+    if (x = true) and (y = true) then\r
       Showmessage('LOSE');\r
   end;\r
   procedure test(A: Boolean);\r
@@ -286,7 +289,10 @@ begin
       begin\r
         test(true);\r
         if x = true then\r
+        begin\r
+          Check;\r
           Exit;\r
+        end;\r
       end;\r
     end;\r
     AI;\r