помогите правильно начать хадачу Опции

[eldar219]

нам дано задание :
type название =(ноль,один,два,три,четыре,пять);
Var:d:'0'..'5';n:название
По литере-цифре d присвоить переменной n название этой цифры

я не могу панять как записать type
вот как я начал:

Код

program by_eldar;
uses crt;
const
Nul='najmite na cifru nul';
Odin='najmite na cifru odin';
Dva='najmite na cifru dva';
Tri='najmite na cifru tri';
Chetiri='najmite na cifru chetiri';
Pyat='najmite na cifru pyat';
var d:real;type:n;
begin
clrscr;

[Unconnected]

Можно так:

type MyType = (Odin,Dva,Tri,Chetire,Pyat);

var d:'0'..'5';
    n:MyType;

begin
  readln(d);
  case d of
    '1':n:=Odin;
    '2':n:=Dva;
    '3':n:=Tri;
    '4':n:=Chetire;
    '5':n:=Pyat;
  end;
  readln;
end.