IDENTIFICATION DIVISION.

       PROGRAM-ID. algebra.
       DATA DIVISION.
       FILE SECTION.

       WORKING-STORAGE SECTION.
       77 temp1 PIC 9(3).
       77 temp2 PIC 9(3).
       77 name1 PIC X(30).

       77 name2 PIC X(30).
        77 zahl PIC 9(3).
        77 currChar1 PIC X(1).
         77 currChar2 PIC X(1).

         PROCEDURE DIVISION.
         ANFANG.

          MOVE SPACES TO name1.

          MOVE SPACES TO name2.
          MOVE 0 TO temp1.
          MOVE 0 TO temp2.
          MOVE 0 TO zahl.

           DISPLAY "name1 ".
              ACCEPT name1.
                 DISPLAY "name2 ".
                     ACCEPT name2.

        PERFORM VARYING zahl FROM 1 BY 1 UNTIL Zahl >= 30


           MOVE name1 (zahl:1) TO currChar1
           MOVE name2 (zahl:1) TO currChar2

          COMPUTE temp1 = FUNCTION ord(currChar1)
            COMPUTE temp2 = FUNCTION ord(currChar2)

           IF temp1 < temp2 THEN

         DISPLAY "name1:" name1

          END-IF
        IF temp1 > temp2 THEN

         DISPLAY "name2:" name2

          END-IF

       END-PERFORM.

                 stop RUN.


          END PROGRAM algebra.