CONSTANT DICTIONARY = "words.txt" DECLARE line : STRING OPENFILE DICTIONARY FOR READ WHILE NOT EOF(DICTIONARY) DO READFILE DICTIONARY, line IF isAlphabetical(line) THEN OUTPUT line ENDIF ENDWHILE CLOSEFILE DICTIONARY FUNCTION isAlphabetical(word : STRING) RETURNS BOOLEAN IF LENGTH(word) < 2 THEN RETURN FALSE ENDIF DECLARE index : INTEGER FOR index ← 1 TO LENGTH(word) - 1 IF MID(word, index, 1) > MID(word, index + 1, 1) THEN RETURN FALSE ENDIF NEXT index RETURN TRUE ENDFUNCTION