Miners get the balance

Feedback from albert, setting the recovered account balance as fee so that the miners and pools can more easily keep track of the reward and miners still get the PASC

src/core/UBlockChain.pas

@@ -2130,7 +2130,13 @@ begin
   try
     for i:=0 to LRecoverAccounts.Count-1 do begin
       LAccount := LRecoverAccounts[i];
-      LOpRecoverFounds := TOpRecoverFounds.Create(Self.OperationBlock.protocol_version, LAccount.account, LAccount.n_operation+1, 0, Self.AccountKey);
+      LOpRecoverFounds := TOpRecoverFounds.Create(
+        Self.OperationBlock.protocol_version,
+        LAccount.account,
+        LAccount.n_operation+1,
+        LAccount.balance,
+        Self.AccountKey
+      );
       try
         if not(
           Self.AddOperation(