Разрешение ввода только чисел — Pascal(Паскаль)

uses crt;
const ENTER=#13;
var c:char;
 
begin
     writeln('Вводите буквы и цифры');
     c:=readkey;
     while (c<>ENTER) do begin
        if c in ['0'..'9'] then write(c);
        c:=readkey;
     end;
     writeln;
end.