[dr. F.I.N.]

Оно?

Код:

type
  PProblem = ^TProblem;
  TProblem = record
    Value: Integer;
    Description: ShortString;
    OneProblem,
    TwoProblem: PProblem;
  end;