Computação TOP10

Program pilha ;
// autor: Cícero Amauri
const max = 4;
type  pilha = record
                 obj : array[1..max] of string;
                 j : integer;
              end;
var
 p1 : pilha;
 i: integer;
 objeto: string;
procedure criar ( var p: pilha); // cria a pilha
   begin
       p.j := 0;
   end;
procedure push(var p:pilha; ob: string); // adiciona elementos na pilha
  begin
      p.j := p.j + 1;
      p.obj[p.j] := ob;
  end;
function pop (var p: pilha):string;  // retira os elementos da pilha
  begin
    pop := p.obj[p.j];
    p.j:= p.j-1;
  end;
  function vazia(var p: pilha):boolean; // indica se a pilha está vazia
  begin
     if p.j = 0 then
vazia:= true
else
 vazia := false;
  end;
 Begin
    criar (p1);
    for i:= 1 to max do
    begin
      readln (objeto);// o usuario informar os elementos para inserir na pilha
      push (p1,objeto); // chama o procedimento para colocar os elementos na pilha
    end;
    writeln ('saída da pilha');
    repeat
       writeln(pop(p1));
    until (vazia(p1)= true); // repete até que a pilha esteja vazia
 End.