Initial data commit

Task/Filter/Delphi/filter-1.delphi

@@ -0,0 +1,25 @@
+program FilterEven;
+
+{$APPTYPE CONSOLE}
+
+uses SysUtils, Types;
+
+const
+  SOURCE_ARRAY: array[0..9] of Integer = (0,1,2,3,4,5,6,7,8,9);
+var
+  i: Integer;
+  lEvenArray: TIntegerDynArray;
+begin
+  for i in SOURCE_ARRAY do
+  begin
+    if not Odd(i) then
+    begin
+      SetLength(lEvenArray, Length(lEvenArray) + 1);
+      lEvenArray[Length(lEvenArray) - 1] := i;
+    end;
+  end;
+
+  for i in lEvenArray do
+    Write(i:3);
+  Writeln;
+end.

Task/Filter/Delphi/filter-2.delphi

@@ -0,0 +1,35 @@
+program FilterEven;
+
+{$APPTYPE CONSOLE}
+
+uses
+  System.SysUtils,
+  Types,
+  Boost.Int;
+
+var
+  Source, Destiny: TIntegerDynArray;
+
+begin
+  Source.Assign([0, 1, 2, 3, 4, 5, 6, 7, 8, 9]);
+
+  // Non-destructively
+  Destiny := Source.Filter(
+    function(Item: Integer): Boolean
+    begin
+      Result := not odd(Item) and (Item <> 0);
+    end);
+
+  Writeln('[' + Destiny.Comma + ']');
+  Readln;
+end.
+
+  // Destructively
+  Source.Remove(
+    function(Item: Integer): Boolean
+    begin
+      Result := odd(Item) or (Item = 0);
+    end);
+
+  Writeln('[' + Source.Comma + ']');
+End.