Cantidad de palabras de una oracion

Algoritmo sin_titulo
 cantpalabras=1;
 Continuar=1;
 
 Repetir
  Escribir  "Escriba una frase.";
  Leer frase;
  Para i=1 Hasta longitud(frase) Hacer
   Si subcadena(frase,i,i) = " " Entonces
    cantpalabras=cantpalabras+1;
   FinSi
  FinPara
  Si frase="" Entonces
   cantpalabras=0;
  FinSi
  escribir"La frase tiene ", cantpalabras, " palabras.";
  Escribir  "";
  Escribir  "?Volver a intentar 1(si)/2(no)?";
  Leer Continuar;
  cantpalabras=1;
 Hasta Que Continuar=2
FinAlgoritmo