Hoa,

Et même en faisant

function verif_nombre(x:char):boolean;
var vrie:boolean;
begin
case x of
'1'..'9': vrie:=true;
else vrie:=false;