In fcl-passrc, TPasWriter.WriteElement does not correctly show declararions of variant records

TPasWriter.WriteElement does not correctly write declararions of variant records.

For example:

RPoint=Record
  K : string;
  Case Boolean of
    False : (X,Y,Z : real);
    True : (R,theta,phi : real);
  end;  

is shown as follows:

RPoint = record
  K: string;
end;

See attached archive to reproduce.

test.zip