FUNCTION ISALPHATIBCAL(text:STRING) RETURNS BOOLEAN DECLARE charchters:ARRAY[1:LENGTH(text)] OF CHAR DECLARE sorted:BOOLEAN FOR Count ← 1 TO LENGTH(text) charchters[Count] ← MID(text,Count,1) NEXT Count sorted ← TRUE FOR Count ← 1 TO (LENGTH(text)-1) IF ASC(charchters[Count]) > ASC(charchters[Count+1]) THEN sorted ← FALSE ENDIF NEXT Count IF LENGTH(text)= 1 THEN sorted ← FALSE ENDIF RETURN sorted ENDFUNCTION DECLARE line:STRING OPENFILE "AllWords.txt" FOR READ WHILE NOT EOF("AllWords.txt") READFILE "AllWords.txt", line IF ISALPHATIBCAL(line) = TRUE THEN OUTPUT line ENDIF ENDWHILE CLOSEFILE "AllWords.txt"