Pascal/Turbo Pascal - ayuda que le falta a mi código en pascal ayuda

esto es lo que deberia hacer el programa

Realizar un programa que permita determinar el total acumulado y promedio de un alumno al finalizar el semestre considerando que son tres cortes de evaluación y en base al total determinar lo siguiente:

** Si el total está entre 93 y 100 (ambos inclusive) se debe mostrar el mensaje “Alumno Excelente” sino
** Si el total está entre 85 y 92 (ambos inclusive) se debe mostrar el mensaje “Alumno Sobresaliente” sino
** Si el total está entre 75 y 84 (ambos inclusive) se debe mostrar el mensaje “Alumno Distinguido” sino
** Si el total está entre 60 y 74 (ambos inclusive) se debe mostrar el mensaje “Buen Alumno” sino
** Si el total está entre 50 y 59 (ambos inclusive) se debe mostrar el mensaje “Alumno Satisfactorio” sino debe mostrar el mensaje “El alumno debe estudiar más”.


y esto es lo que llevo hecho.

program alumnos;

Var
nota1, nota2, nota3, notaf:Integer;

begin
Write('Ingrese la nota del 1 corte: ');
ReadLn(nota1);
Write('Ingrese la nota del 2 corte: ');
ReadLn(nota2);
Write('Ingrese la nota del 3 corte: ');
ReadLn(nota3);
notaf:= nota1+ nota2 + nota3;
if (notaf>=93) and (notaf<=100) then
WriteLn('Alumno Excelente con: ', notaf,)
else
if(notaf>=85) and (notaf<=92) then
WriteLn('Alumno Sobresaliente con: ', notaf,)
else
if(notaf>=75) and (notaf<=84) then
WriteLn('Alumno Distinguido con: ', notaf,)
else
if(notaf>=60) and (notaf<=74) then
WriteLn('Buen Alumno con: ', notaf,)
else
if(notaf>=50) and (notaf<=59) then
WriteLn('Alumno Satisfactorio con: ', notaf,)

else
WriteLn('El alumno debe estudiar mas :',notaf,)
end.

Hola, entre que rangos esta la nota:
0..20
0..10
0.100

Espero esto te ayude.
Salu2.