vcl application

[heapsort/heapsort.git] / heap_sort.dpr

diff --git a/heap_sort.dpr b/heap_sort.dpr
index 2d2ed1e..0a19d77 100644 (file)
--- a/heap_sort.dpr
+++ b/heap_sort.dpr
@@ -4,11 +4,14 @@ program heap_sort;
 {$R *.res}
 
 uses
-  System.SysUtils, System.Classes, System.Generics.Collections;
+  System.SysUtils,
+  System.Classes,
+  System.Generics.Collections;
 
 var
   arr, heap: TArray<integer>;
   tail: integer;
+  s: string;
 
 procedure base(root: integer);
 var
@@ -108,11 +111,15 @@ end;
 begin
   try
     { TODO -oUser -cConsole \83\81\83C\83\93 : \82±\82±\82É\83R\81[\83h\82ð\8bL\8fq\82µ\82Ä\82­\82¾\82³\82¢ }
-    makeHeap(20);
-    printHeap;
-    sort;
-    test;
-    Readln;
+    repeat
+      makeHeap(20);
+      printHeap;
+      sort;
+      test;
+      Readln(s);
+    until s <> '';
+    Finalize(heap);
+    Finalize(arr);
   except
     on E: Exception do
       Writeln(E.ClassName, ': ', E.Message);