Помогите с процедурой.
procedure menu1;
var Key: Word;
var m:set of ord('0')..ord('9');
begin
m:=[ord('0'),ord('1'),ord('2'),ord('3'),ord('4'),ord('5'),ord('6'),ord('7'),ord('8'),ord('9')]+[ord(',')];
if (not(key in m)) and (key<>ord(','))
then
readln(Key);