{ %fail }

var
  S: String;
  B: Boolean;
  E: Word;
begin
  S := '0';
  Val(S, E, B);
end.