TYPE.

Um tipo enumerado é uma seqüência ordenada de identificadores definidos pelo usuário, que forma um tipo
ordinal. A palavra reservada para criaç ão de tipos enumerados é type.

Type semana = (segunda, terça, quarta, quinta, sexta, sábado, domingo);

Uma das mais importantes características de um tipo enumerado é a ordem na qual os valores são
ordenados. Além de estabelecer os próprios identificadores, a declaração do mesmo define a ordem dos
identificadores no tipo.

Exemplo:

Program ex7;
uses crt;
type cores = (preto, azul, vermelho, amarelo, verde, rosa, branco, roxo, lilas);
var
uma_cor: cores;
begin
clrscr;
uma_cor := roxo; {atribuir um identificador a variável de tipo}
uma_cor := succ(uma_cor); {recebeu lilás, o sucessor}
uma_cor := pred(uma_cor); {recebeu roxo novamente, o antecessor}
uma_cor := succ(azul); {recebeu vermelho, sucessor de azul}
if succ(uma_cor)>=lilás then
uma_cor := preto;
writeln(ord(uma_cor)); {escreveu 2, a ordem do vermelho}
uma_cor := preto;
writeln(ord(uma_cor)); {escreveu 0, a ordem do preto}
for uma_cor := preto to rosa do
writeln(ord(uma_cor)); {escreveu as posições, do preto ao rosa}
end.