Fixing fashion MNIST and MNIST loading.

Author: joaopauloschuler

examples/DenseNetFashionMNIST/DenseNetFashionMNIST.lpr

@@ -133,7 +133,7 @@   TTestCNNAlgo = class(TCustomApplication)
     WriteLn('Neural Network will minimize error with:');
     WriteLn(' Layers: ', NN.CountLayers());
     WriteLn(' Neurons:', NN.CountNeurons());
-    WriteLn(' Weights:' ,NN.CountWeights());
+    WriteLn(' Weights:', NN.CountWeights());
     NN.DebugWeights();
     NN.DebugStructure();
 

neural/neuraldatasets.pas

@@ -423,7 +423,7 @@ procedure loadMNISTDataset(ImgVolumes: TNNetVolumeList; fileName: string;
   ImgMagic, ImgItems, ImgRows, ImgCols: Integer;
   MNistImg: TMNistImage;
   ImgCnt: integer;
-  LabelByte: integer;
+  LabelByte: byte;
   Vol: TNNetVolume;
   Separator: char;
 begin