Словарь служебных слов языка delphi

[Kate68]

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

[Levsha100]

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);

Это загрузка ключевых слов.
Далее ищите слова и сравниваете их с базой.