Data commit

Task/Repeat/Delphi/repeat-1.delphi

@@ -0,0 +1,26 @@
+program Repeater;
+
+{$APPTYPE CONSOLE}
+{$R *.res}
+
+type
+  TSimpleProc = procedure;     // Can also define types for procedures (& functions) which
+                               // require params.
+
+procedure Once;
+begin
+  writeln('Hello World');
+end;
+
+procedure Iterate(proc : TSimpleProc; Iterations : integer);
+var
+  i : integer;
+begin
+  for i := 1 to Iterations do
+    proc;
+end;
+
+begin
+  Iterate(Once, 3);
+  readln;
+end.

Task/Repeat/Delphi/repeat-2.delphi

@@ -0,0 +1,24 @@
+program Repeater;
+
+{$APPTYPE CONSOLE}
+{$R *.res}
+
+uses
+  System.SysUtils;
+
+procedure Iterate(proc: TProc; Iterations: integer);
+var
+  i: integer;
+begin
+  for i := 1 to Iterations do
+    proc;
+end;
+
+begin
+  Iterate(
+    procedure
+    begin
+      writeln('Hello World');
+    end, 3);
+  readln;
+end.