Introducir datos en un vector preguntando

Lectura de los datos del vector, preguntando al usuario.
…………………………….
i:=1;
fin_datos:=0;
repetir
Escribir (‘¿Quieres introducir datos en el vector (S/N)?’);
Leer (respuesta);
Hasta (respuesta = ‘S’) o (respuesta= ‘N’)
Mientras (respuesta = ‘S’) y ( i<= max) hacer
leer (mivector[i]);
i:=i+1;
fin_datos:=fin_datos+1;
si ( i<= max) entonces
repetir
Escribir (‘¿Quieres introducir datos en el vector (S/N)?’);
Leer (respuesta);
Hasta (respuesta = ‘S’) o (respuesta= ‘N’)
Si_no
Escribir (‘¿el vector ya está completo?’);
Fin_si;
fin_mientras;