Improve loop readability

Signed-off-by: Janos Varga <113785741+vargajb@users.noreply.github.com>

Author: vargajb

COBOL Programming Course #2 - Learning COBOL/Labs/cbl/CBL0002.cobol

@@ -52,10 +52,10 @@
       *
        READ-NEXT-RECORD.
            PERFORM READ-RECORD
-            PERFORM UNTIL LASTREC = 'Y'
-            PERFORM WRITE-RECORD
-            PERFORM READ-RECORD
-            END-PERFORM
+           PERFORM UNTIL LASTREC = 'Y'
+               PERFORM WRITE-RECORD
+               PERFORM READ-RECORD
+           END-PERFORM
            .
       *
        CLOSE-STOP.
@@ -65,7 +65,7 @@
       *
        READ-RECORD.
            READ ACCT-REC
-           AT END MOVE 'Y' TO LASTREC
+               AT END MOVE 'Y' TO LASTREC
            END-READ.
       *
        WRITE-RECORD.