[ Foro de Pascal ]

me podrian decir si esto esta bien??

program E_14;
{Determinar si la cantidad de elementos es PAR,
si es par, pasar la pila aux a la pila PAR y si es impar pasar el tope a la 
pila IMPAR}
uses estructu;
var
    DADA, AUX, PAR, IMPAR: Pila;
begin
    ReadPila(DADA);
    InicPila(AUX '');
    InicPila(PAR '');
    InicPila(IMPAR '');
while not PilaVacia(DADA) do
    Apilar(AUX desapilar(DADA)) and Apilar(AUX desapilar(DADA));
        while PilaVacia(DADA) do
            Apilar(PAR desapilar(AUX));
if not PilaVacia(DADA) do
    Apillar(IMPAR desapilar(DADA));
    WritePila (PAR);
    WritePila (IMPAR);
end.

No tiene muy buena pinta. Hay detalles que no se saben y que deben ser parte de la unit "estructu", llamadas a funciones que no tienen comas, "do" que no parecen estar unidos a ningún "while"...