why is my code not running

IDENTIFICATION DIVISION. PROGRAM-ID. Lab2_PROGRAM 3. ENVIRONHENT DIVISION. CONFIGURATION SECTION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT INPUT-FILE ASSIGN "C: |path|to| inputumericV, txt" ORGANIZATION IS LINE SEQUENTIAL. DATA DIVISION. FILE SECTION. FD INPUT-FILE. 01 INPUT-RECORD. 05 AMOUNT PIC 9(7).99. WORKING-STORAGE SECTION. 77. EOF-SWITCH VALUE 0 . 77. THOUSANDS-SEPARATOR PIC VALUE "," WORKING-STORAGE SECTION. 77 EOF-SWITCH VALUE . 77 THOUSANDS-SEPARATOR PIC x VALUE ",". PROCEDURE DIVISION. MAIN-PROCEDURE. OPEN INPUT INPUT-FILE PERFORH READ-AND-DISPLAY UNTIL EOF-SWITCH = 1 CLOSE INPUT-FILE STOP RUN. READ-AND-DISPLAY. READ INPUT-FILE INTO INPUT-RECORD IF EOF-SWITCH =1 MOVE 1 TO EOF-SWITCH ELSE COMPUTE AMOUNT-LEN = FUNGTION LENGHT (AMOUNT) IF AMOUNT 1 EN >3 PERFORM FORMAT-AMOUNT END-IF DISPLAY "S" AMOUNT END-IF. FORMAT-AMOUNT. COMPUTE NUM-THOUSANDS = FUNCIION TNTEGER (AMOUNT/ 1 ). CONPUTE REMATNDER = FUNCTION MOD (AMOUNT, 10OQ) IF NUM-THOUSANDS > MOVE THOUSANOS-SEPARATOR TO THOUSANDS-CHAR PERFORH FORMAT-AMOUNT END-IF MOVE FUNCTION NUMVAL (REMAINDER, 2) TO FORMATTED-AMOUNT STRING THOUSANDS-CHAR FORMATTED-AMOUNT DELIMITED BY SIZE INTO FORMATTED-AMOUNT The main procedure of the program DTSPLAY STOP RUN. add other procedures here END PROGRAM Lab2_PROGRAM3