How to write matrix row by row with implied do loop?

Question

My IDE is CodeBlocks with MinGW 9.2.0.

I need a help with writing matrix row by row in textual file.

This is my simple code:

program matrix
 
 i