VAR
          Code    : Integer;
          IntVar  : Integer;
          RealVar : Real;
          StrVar  : String [4];
          CharVar : Char;

       BEGIN
         Val (RealVar,CharVar,Code);    { Error 33}
       END.