О типах данных

[Cstln]

1) Может ли тип-диапазон быть основан на перечисляемом типе? Если да, то приведите пример, пожалуйста

2) Тип-диапазон относится к порядковому. Но как к нему применить ord(x), если это возможно вообще?

[ViktorR]

Если я правильно понял, то речь об интервальном и перечисляемом типах данных. Например, можно протестировать ...
Пример 1:

type mytp = 5..17;
 var a : mytp;
     n : word;
begin
  a := 6;
  a := pred(a);
  a := 8;
  a := succ(a);
  n := ord(a);
end.

Пример 2:

type menu = (READ, WRITE, EDIT, QUIT);
     mytp = READ..EDIT;
 var a : mytp;
     n : word;
begin
  a := EDIT;
  a := pred(a);
  a := pred(a);
  a := succ(a);
  n := ord(a);
end.

Это то?

Вроде ...

[Cstln]

Спасибо. Это как раз то, что нужно