Initial data commit

Task/Sorting-algorithms-Bubble-sort/Modula-3/sorting-algorithms-bubble-sort.mod3

@@ -0,0 +1,20 @@
+MODULE Bubble;
+
+PROCEDURE Sort(VAR a: ARRAY OF INTEGER) =
+  VAR sorted: BOOLEAN;
+      temp, len: INTEGER := LAST(a);
+  BEGIN
+    WHILE NOT sorted DO
+      sorted := TRUE;
+      DEC(len);
+      FOR i := FIRST(a) TO len DO
+        IF a[i+1] < a[i] THEN
+          temp := a[i];
+          a[i] := a[i + 1];
+          a[i + 1] := temp;
+          sorted := FALSE;
+        END;
+      END;
+    END;
+  END Sort;
+END Bubble.