Ну убейти не пойму в чём дело.

 Var c:char;
Type digit = set of '0'..'9';
begin
c:='7';
if c in digit THEN {сдесь ошибка} writeln('rabotaet');
end. 

Ошибка: '(' expected but 'THEN' found
???

В том, что In проверяет принадлежность элемента к множеству, а не ко множественному типу...

Чувствуешь разницу?

Усё понял. Спасибо.
Бл, а в книге было написано в качестве примера:

Var 
  c:char;

Type 
  digit = set of '0'..'9';

begin
  if c in digit THEN.............. 

.Что твариться!

const digit : set of char = ['0'..'9'];