diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -37,3 +37,8 @@
 ## 0.5.2.0 -- 2020-03-07
 
 * Fifth version revised B. Fixed issue with the name of the recorded informational sound file in the 'recAndProcess' function.
+
+## 0.5.3.0 -- 2020-03-07
+
+* Fifth version revised C. Fixed issue with the noise reduction in the 'recAndProcess' function for the existing at the beginning file
+(it is not done at all in such a case). 
diff --git a/DobutokO/Sound.hs b/DobutokO/Sound.hs
--- a/DobutokO/Sound.hs
+++ b/DobutokO/Sound.hs
@@ -408,28 +408,31 @@
        putStrLn "_______________________________________________________________________"
        recAndProcess file 1)
   | x == 2 = onException (do     
-     putStr "Please, specify the control parameter for the SoX \"noisered\" effect in the range from 0.0 to 1.0. "
-     putStrLn "The greater value causes more reduction with possibly removing some important sound data. The default value is 0.5 "
-     putStrLn "To use the default value, you can simply press Enter."
-     ctrlN <- getLine
-     let addit = dropWhile (/= '.') . filter (\t -> isDigit t || t == '.') $ ctrlN
-         noiseP = if null ctrlN then ""
-                  else tail addit
-     controlNoiseReduction $ '0':noiseP ;
-     norm "_x.wav" ;
-     if isPrefixOf "nx." file 
-       then putStr "" 
-       else renameFile "8_x.wav" file ;
-     removeFile "x.wav" ;
-     removeFile "_x.wav" ;
-     dir <- listDirectory "." ;
-     let paths4 = filter (isPrefixOf "nx.") dir
-     mapM_ removeFile paths4 ;
-     putStrLn "" ;
-     return "") (do
-       putStrLn "The process was not successful may be because of the not valid data. Please, specify the valid data as requested."
-       putStrLn "_______________________________________________________________________"
-       recAndProcess file 2)
+     exist3 <- doesFileExist file
+     if exist3 then return ""
+     else do
+       putStr "Please, specify the control parameter for the SoX \"noisered\" effect in the range from 0.0 to 1.0. "
+       putStrLn "The greater value causes more reduction with possibly removing some important sound data. The default value is 0.5 "
+       putStrLn "To use the default value, you can simply press Enter."
+       ctrlN <- getLine
+       let addit = dropWhile (/= '.') . filter (\t -> isDigit t || t == '.') $ ctrlN
+           noiseP = if null ctrlN then ""
+                    else tail addit
+       controlNoiseReduction $ '0':noiseP 
+       norm "_x.wav" 
+       if isPrefixOf "nx." file 
+         then putStr "" 
+         else renameFile "8_x.wav" file 
+       removeFile "x.wav" 
+       removeFile "_x.wav" 
+       dir <- listDirectory "." 
+       let paths4 = filter (isPrefixOf "nx.") dir
+       mapM_ removeFile paths4 
+       putStrLn "" 
+       return "") (do
+         putStrLn "The process was not successful may be because of the not valid data. Please, specify the valid data as requested."
+         putStrLn "_______________________________________________________________________"
+         recAndProcess file 2)
   | x == 3 = onException (do
      putStr "Please, specify the octave number, to which you would like all the main components (not taking into account their respective lower pure quints) "
      putStrLn "should belong. The number should be better in the range [1..8]"
diff --git a/dobutokO2.cabal b/dobutokO2.cabal
--- a/dobutokO2.cabal
+++ b/dobutokO2.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                dobutokO2
-version:             0.5.2.0
+version:             0.5.3.0
 synopsis:            A program and a library to create experimental music from a mono audio and a Ukrainian text
 description:         It can also create a timbre for the notes
 homepage:            https://hackage.haskell.org/package/dobutokO2