type
  TPartsOfSpeech = (TNoun, TVerb, TAdjective);
  EnglStr = String[91]; //45 - самое длинное английское слово
  RussStr = String[51]; //25 - самое длинное русское слово
  TWord = record
      Russian: RussStr;
      English: EnglStr;
      PartOfSpeech: TPartsOfSpeech;
  end;