По введенному множеству символов сформировать и вывести множество, исключающее все цифры — Pascal(Паскаль)

uses crt;
var m:set of char;
    c:char;
    i:byte;
begin
clrscr;
writeln('Введите множество символов, в том числе и цифры, окончание ввода 0');
m:=[];{пустое множество}
repeat
c:=readkey;{читаем код клавиши}
write(c);{выводим символ}
m:=m+[c];{добавляем в множество}
if c=#48 then writeln;{если 0, на новую строку}
until c=#48;{конец ввода}
writeln;
m:=m-['0'..'9'];{вычитаем множество цифр}
writeln('Множество без цифр:');
for i:=0 to 255 do
if chr(i) in m then write(chr(i));
readln
end.