'Task
' Find and display all the ordered words in the dictionary unixdict.txt
' that have the longest word length.
NameFile = "unixdict.txt"
NewLine = ""
max = 0
index = 0
If IsOrderedWord
(NewLine
) = -1 Then index = index + 1
ListWords(index) = NewLine
index = 1
ListWords(index) = NewLine
IsOrderedWord = 0
IsOrderedWord = -1