Pascal/Turbo Pascal - pase de nros en pascal: me aparece error pero no estoy segura de que es lo que esta mal. ayudaaa!!!!

program Ordenando;

(con este programa se busca apilar el tope de elemento en dada, manteniendo su orden de menor a mayor)

{$INCLUDE/usr/ESTRUCTU}

var

   dada, ayuda1, ayuda2: fila;

   elemento: pila;

begin

   writeln('escriba numeros en orden de menor a mayor');

   inicfila(dada);

   writeln('escriba un numero');

   inicpila(elemento);

   readfila(ayuda1);

   readfila(ayuda2);

   while(not filavacia (dada)) do

       If(tope (dada) < tope (elemento)) or (tope (dada) = tope (elemento)) then

            Agregar (ayuda1, extraer (dada));

            else

            agregar(ayuda2, extraer (dada));

(como el usuario no habia suguerido nada para los numeros iguales al de elemento, los agrupe junto a los menores)

   while(not filavacia (ayuda1)) do

       agregar(dada, extraer (ayuda1);

   agregar(dada, desapilar (Elemento));

   while not filavacia (ayuda2) do

       agregar(dada, extraer (ayuda2);

   writefila(dada);

   writepila(elemento);

end.