procedure LoadDictionary;
var
  DictionaryFile: LongInt;
  FailedLoad: Boolean;
begin
  DictionaryFile := OpenFile(DictionaryPath, False);
  FailedLoad := not ReadFileString(DictionaryFile, Dictionary, FileSize(DictionaryFile));
  CloseFile(DictionaryFile);
  if FailedLoad then
  begin
    WriteLn('Failed To Load Dictionary');
    TerminateScript;
  end;
end;