HELP PASCAL (PILHAS)

[bironet]

Galera tô precisando de uma ajudinha ai . Tipo tô fzendo esse enunciado:

1o. Exercício
Duas pilhas seqüenciais numéricas estão ordenadas crescentemente a partir do topo. Transfira os elementos dessas pilhas para uma terceira pilha, inicialmente vazia, de modo que ela fique ordenada decrescentemente (maior valor no topo). Suponha que não haja restrições quanto a capacidade das pilhas, isto é as duas pilhas iniciais tem topo <= max_elemento.
 

Me deparei com a procedure a seguir onde da o erro..:


Segue abaixo o Codigo completo se alguém poder
me ajudar pelo amor de Deus agradeço..

http://www.infonti.com.br.sorce.txt SORCE


==============================================
Procedure Comparar (var Pa,Pb:Pilha; Pc:Pilha2 );
Var
i,j : T_elem;
Begin
      I:= Pop (pa);
      J:= Pop (pb);
      While vazia (pa) and Vazia (pb) = false do
     
  Begin
   
     If pa.dado>pb.dado then
     ;
      Push (pc, i);
      else

     Push (Pc, j);
end;
 While vazia (pa) = false do
    Top (pa);
    Push (pc);
     
end;   
 While vazia (pb) = false do
  Top (pb);
  Push (pc);
 end;   
 return; 
 until vazia(pa) and vazia (pb)=true ;
end;