Hex to Bin -> Falsche eingabe

[KrasserChecker]

Meinst Du sowas hier:

Delphi-Quellcode:

repeat 
  writeln('Bitte Hexadezimalzahl eingeben:');
  readln(h);
  a:= 1;
  c:= Upcase(h[a]);
  if not (c in ['0'..'9','A'..'F']) then
    writeln('Fehler');
until c in ['0'..'9','A'..'F'];