Create Table dictionery (word c(50))
Insert into dictionery values ("ар")
Insert into dictionery values ("бар")
Insert into dictionery values ("вар")
Insert into dictionery values ("гора")
Insert into dictionery values ("дыра")
Insert into dictionery values ("еда")
Insert into dictionery values ("ёж")
Insert into dictionery values ("жар")
Insert into dictionery values ("зад")
Insert into dictionery values ("игра")
Insert into dictionery values ("йог")
Insert into dictionery values ("кора")
Insert into dictionery values ("лад")
Insert into dictionery values ("март")
Insert into dictionery values ("нога")
Insert into dictionery values ("оса")
Insert into dictionery values ("порт")
Insert into dictionery values ("рот")
Insert into dictionery values ("сон")
Insert into dictionery values ("ток")
Insert into dictionery values ("ус")


cWord="Гастроном"
cWord=Upper(cWord)
nLenWord=Len(cWord)
Use dictionery.dbf Alias dict
Scan for Len(alltrim(dict.word))<=nLenWord
    cWordDict=Upper(dict.word)
    nLenDict=Len(alltrim(dict.word))
    i=1
    Do while i<=nLenDict and Occurs(Substr(cWordDict,i,1),cWord)>=Occurs(Substr(cWordDict,i,1),cWordDict)
        i=i+1
    EndDo 
    If i>nLenDict
        ? dict.word
    EndIf
EndScan
Use