ЕК
Евгений Кудряшов
Вводить по одному символу, проверять, то ли это, что нужно, если не то - игнорировать.
веди строку и в цикле проверяй каждый символ, примени CASE
case s [ i ] of
0..9 : это цифра
else не цифра
end;