exercicio pilhas 2014

Program cartas;
type
    carta = record
            nipe:string;
            numero:integer;
            prox:^carta;
end;
var
   topo:^carta;
   aux:carta;
   i:integer;

FUNCTION insere(topoPilha:carta; novaCarta:carta):carta;
Begin
     novaCarta.prox := @topoPilha;
     insere := novaCarta;
end;
FUNCTION remove(topoPilha:carta):carta;
Begin
     remove := topoPilha.prox^;
end;
Procedure acessaTopo(topoPilha:carta);
Begin
     writeln(topoPilha.nipe);
     writeln(topoPilha.numero);
end;

Begin
     //inicializa a pilha
     topo := nil;

     //Cria um registro
     aux.nipe := 'ouro';
     aux.numero := 10;

     //Insere o primeiro registro
     aux := insere(topo^,aux);
     topo := @aux;

     //Acessa o promeiro registro
     acessaTopo(topo^);

     readln(i);
end.