SoloCodigo

Yo hace poco tuve q hacer una practica igual y creo q no te falta ni sobra ningun end, mira bien el lenguaje por si has metido algo de mas.
Creo q mas bien te sobran llaves, ejemplo:
         10..99:BEGIN
                  IF patron<10 THEN
                     aux1:= x div 10;
                     aux2:= aux1 mod 10;
                     IF (x=aux1) OR (x=aux2) THEN
                        comprobar:=true;
                     END;{IF}
                   END;{IF}
                  IF (patron>9) AND (x=patron) THEN
                      comprobar:=true;
                  END;{IF}
                { END;{CASE 10..99}

Esa llave creo q no pinta nada ahi.
Espero servirte de ayuda.