Ejercicio 14 de Speint: ¿ como hacer una agenda?

Proceso agenda
Definir a,c Como Caracter;
Definir d,b,e Como Entero;
Dimension a(5,4);
d<-0;
Para e<-0 Hasta 4 Con Paso 1 Hacer
Escribir "Ingrese nombre con apellido";
leer a(e,0);
Escribir "Ingrese Direccion";
Leer a(e,1);
Escribir "Ingrese telefono";
Leer a(e,2);
Escribir "Ingrese E-mail";
Leer a(e,3);
FinPara
Escribir "decea buscar un contacto ingrese 0,1,2 o 3 ";
Leer e;
Para e<-0 Hasta 4 Con Paso 1 Hacer
Si e=0 |e=1 |e=2| e=3 Entonces
Escribir "este es tu contacto",d;
Sino
//
FinSi
FinPara

FinProceso