min thread fix

Author: bytebitespas

entries/gklark/src/wcontest.lpr

@@ -162,7 +162,7 @@   tcmp = class(tComparer<tsortitem>)
     cmp := tcmp.Create;
     TArrayHelper<tsortitem>.sort(keys, cmp);
     cmp.Free;
-    stream := THandleStream.Create(0);
+    stream := THandleStream.Create(1);
     stream.WriteByte(Ord('{'));
     eka := True;
     for k in keys do
@@ -200,6 +200,7 @@   tcmp = class(tComparer<tsortitem>)
     it: pdataitem;
   begin
     pool := TFPSimpleThreadPool.Create;
+    pool.MinThreads:=1;
     if threadc > 0 then pool.MaxThreads := threadc;
     bc := 256;
     i := 0;
@@ -263,7 +264,7 @@   tcmp = class(tComparer<tsortitem>)
       infile := ParamStr(1);
       if not FileExists(infile) then
       begin
-        writeln('Invalid filename', ParamStr(1));
+        writeln('Invalid filename ', ParamStr(1));
         break;
       end;
     end