Dear Mariusz Iwaniuk,
Thanks for your response. Following your response I have made necessary corrections in my notebook. However, I still find error messages. Can you share your Mathematica notebook file?
NDSolve::ndnum: Encountered non-numerical value for a derivative at t == 0.`. >>
Regards
Soumen