СЛОВАРЬ СЛУЖЕБНЫХ СЛОВ ЯЗЫКА DELPHI

Здравствуйте.Помоготе пожалуйсто с задачей на Делфи.ИМЕЕТСЯ СЛОВАРЬ СЛУЖЕБНЫХ СЛОВ ЯЗЫКА DELPHI. В ТЕКСТЕ ОПРЕДЕЛИТЬ СЛОВА, НЕЯВЛЯЮЩИЕСЯ СЛУЖЕБНЫМИ СЛОВАМИ ЯЗЫК.ПРИ ОБНАРУЖЕНИИ ОШИБКИ ДАТЬ ВОЗМОЖНОСТЬ ПОЛЬЗОВАТЕЛЮ ЕЕ ИСПРАВИТЬ. ОБЕСПЕЧИТЬ ПОПОЛНЕНИЕ СЛОВАРЯ. Очень срочно нужно.Заранее большое спасибо.
1 ответ

A:array of string;
myfile:text;
i:integer;
------------------
assign(myfile,"file.txt");
reset(myfile);
i:=0;
while not eof(myfile) do
begin
 SetLength(A,A.Length+1);
 ReadLn(myfile ,A[i]);
 i:=i+1;
end;
------------------
close(myfile);
Это загрузка ключевых слов. Далее ищите слова и сравниваете их с базой.