VALERYI_LABA4

PROGRAM VALERYI_LABA4
INTEGER START_OF_WORD
CHARACTER(LEN=100) STRING, BACKWARD_STRING, TEMP_STRING
OPEN(1,FILE='VALERYI_TEXT.TXT')
READ(1,'(A)') STRING
CLOSE(1)
PRINT*, STRING
PRINT*, '---'
START_OF_WORD = 0
DO I=1,LEN_TRIM(STRING)
IF((I == 1).AND.(STRING(I:I) /= ' '))THEN
START_OF_WORD=1
ELSE IF((I>1).AND.(STRING(I:I)==' ').AND.(STRING(I-1:I-1)/=' '))THEN
TEMP_STRING=STRING(START_OF_WORD:I)
CALL BACKWARD(TEMP_STRING, BACKWARD_STRING)
PRINT *,TRIM(BACKWARD_STRING)
ELSE IF((I>1).AND.(STRING(I-1:I-1) == ' ').AND.(STRING(I:I) /= ' '))THEN
START_OF_WORD=I
ELSE IF(I==LEN_TRIM(STRING))THEN
TEMP_STRING=STRING(START_OF_WORD:I)
CALL BACKWARD(TEMP_STRING, BACKWARD_STRING)
PRINT*,TRIM(BACKWARD_STRING)
END IF
END DO
END PROGRAM

SUBROUTINE BACKWARD(STRING, BACKWARD_STRING)
CHARACTER(LEN=100) STRING, BACKWARD_STRING
BACKWARD_STRING = ''
DO I=1,LEN_TRIM(STRING)
BACKWARD_STRING(I:I)=STRING((LEN_TRIM(STRING)+1)-I:(LEN_TRIM(STRING)+1)-I)
END DO
RETURN
END SUBROUTINE