Pascal/Turbo Pascal - Sntencia Case

Hola! mi duda es si e la sentencia case puedo poner una variable que sea un string y sino como puedo solucionar el problema.

Ej:

CASE num_casilla OF
0000:...
0001:...
0002:...

Donde num_casilla debe ser una variable de string, ya que si la variable fuera Integer el número "0001" solamente almacenaria un "1" ya que elimina los 0 no significativos y eso no es lo que quiero.

Muxas gracias de antemano

Hola, buenas tardes. Mira, hasta donde tengo entendido no se puede utilizar en la sentencia case ... of una variable de tipo string.

Para solucionar el problema, yo he utilizado el if .... then

readln(cadena);
if cadena='casa' then
writeln ('escribió casa')
else if cadena='perro'
writeln ('escribió perro');

Si son muchas comparaciones es algo muy tedioso pero es lo que conozco. Posiblemente te den una mejor solución.

Saludos y felices fiestas