Programa en P-seint usando el ciclo mientras y vectores que guarde los datos de x cantidad de libros

Programa en P-seint usando el ciclo mientras y vectores que guarde los datos de x cantidad de libros. Los datos a almacenar son: titulo, autor, nombre, año de edición, código del libro, luego que genere los registros de menor a mayor. El programa debe terminar cuando el usuario escriba la palabra escribus.

Solución:

Proceso libros
definir a,c como cadena;
definir b como entero;
definir sc Como Caracter;
dimension a(5,5);
b<-0;
Repetir
Para b<-0 Hasta 4 Con Paso 1 Hacer
escribir "ingrese el titulo";
leer a(b,0);
escribir "ingrese el autor";
leer a(b,1);
escribir "ingrese el nombre";
leer a(b,2);
escribir "ingrese el año de edición";
leer a(b,3);
escribir "ingrese el codigo del libro";
leer a(b,4);

FinPara
Para b<-0 Hasta 4 Con Paso 1 Hacer
escribir a(b,0);
Escribir a(b,1);
   Escribir a(b,2);
escribir a(b,3);
escribir a(b,4);
FinPara
Escribir "si desea continuar ingrese: si, sino, igrese: escribus";
Leer sc;
Hasta Que sc="escribus" | sc="ESCRIBUS" | sc="Escribus"
FinProceso