Merge pull request #116 from bytebitespas/main

min thread fix

Author: gcarreno

entries/gklark/src/wcontest.lpr

@@ -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