Uso del CASE OF Pascal

PROGRAM NUMEROS;
USES WINCRT;
VAR OPCION : INTEGER;


BEGIN
CLRSCR;
WRITE('INGRESA UN NUMERO ENTRE 1 Y 9 '); 
READLN(OPCION);
CASE OPCION OF
1 : WRITELN('UNO');
2 : WRITELN('DOS');
3 : WRITELN('TRES');
4 : WRITELN('CUATRO');
5 : WRITELN('CINCO');
6 :WRITELN('SEIS');
7 : WRITELN ('SIETE');
8 : WRITELN('OCHO');
9 : WRITELN('NUEVE');
END;
END.