[ Foro de Pascal ]

Problema pilas

) Cargar desde el teclado una pila DADA con 5 elementos. Pasar los tres primeros elementos a la pila
CJTO1 y los dos restantes a la pila CJTO2, ambas pilas inicializadas en vacío.

program pilas;
uses estructu;
var
  DADA,Cjt1,Cjt2:pila;
Begin
    Readpila(DADA);
    Inicpila(Cjt1,");
	Inicpila(Cjt2,");
    Apilar(Cjt1,desapilar(DADA));
	Apilar(Cjt1,desapilar(DADA));
	Apilar(Cjt1,desapilar(DADA));
	Apilar(Cjt2,desapilar(DADA));
	Apilar(Cjt2,desapilar(DADA));
	WritePila(DADA);
	WritePila(Cjt1);
	WritePila(Cjt2);
	
end.

me podrian decir si es correcto, como esta escrito?

En general, no tiene mala pinta. Hay unas comillas sin cerrar, no me queda claro que el "Inicpila" deba recibir una cadena  y no sé si ese "Readpila(DADA);" se encargar de inicializar también la pila, así como si lee los 5 datos o sólo uno. Pero la estructura general debería ser bastante parecida a esa.