Pascal/Turbo Pascal - .

Hola, queria saber si alguien me puede decir que estoy haciendo mal en la parte del case, ya q si corro el programita sin el case me sale pero al agregar el case me pone:
'Constant and case types do not match'.
grax!

6.- Desarrolle un programa PASCAL que calcule la media aritmética de las
notas de tres certámenes y determine una apreciación cualitativa según:
0 - 40 Muy malo
41 - 54 Malo
55 - 60 Suficiente
61 - 79 Bueno
80 - 100 Muy bueno
Las notas están en el rango 0-100}

Program Seis;
Uses
Crt;
Const
maxnota=100;
Type
tnota= 0..maxnota;
Var
A,B,C:tnota;
promedio:real;
Begin
ClrScr;

Writeln ('Ingrese las notas del Alumno: ');
Write ('Nota 1: ') ; Readln (A);
Write ('Nota 2: ') ; Readln (B);
Write ('Nota 3: ') ; Readln (C);

Promedio:= (A+B+C)/3;
Write ('El promedio es: ',promedio);

Case (promedio) of
'0..'40': Write ('Muy Malo');
'41'..'54': Write ('Malo');
'55'..'60': Write ('Suficiente');
'61..'79': Write ('Bueno');
'80'..'100': Write ('Muy Bueno');
End;

End.

Mira sinceramente no se si con el Case funcionario pero yo en particular lo haria con varios If, algo mas o menos asi:

...
promedio:=(a+b+c)/3;
if ((promedio>0) and (promedio<=40)) then
write ('Muy Malo');
if ((promedio>40) and (promedio<=54)) then
write ('Malo');
...
y asi sucesivamente hasta llegar a la condicion de mayor que 80 e igual a 100...

Espero no sea muy tarde... cualquier duda escribe a mi correo

tengo una duda esque a mi me pusiero n a hacer un pro grama con case que tenemos que pasar de grados C a F y alrevez pero es un menu y no me sale q puedo hacer????

Pues postear el código que tienes hecho y así poder ver dónde falla. En un mensaje aparte por favor.