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