Computação TOP10

Program exe1 ;
//autor: Cícero Amauri
const max = 5 ;
type
    pilha = record
             obj: array [1..max] of string;
             cont: integer;
            end;
procedure criar (var x: pilha);
  begin
     x.cont := 0;  
  end;
     procedure push(var x: pilha; y:string);
       begin
         x.cont := x.cont + 1;
         x.obj[x.cont]:= y;
       end;
         procedure pop(var x: pilha; y:string);
         var
            v: string;
            begin
              v := x.obj[x.cont];
              x.cont := x.cont - 1;
              if (v = y) then
               begin
                   write('o elemento " ',v);
                   writeln (' " está na pilha');
               end;
            end;
 function vazia(x:pilha):boolean ;
 begin
   if x.cont = 0 then
   vazia := true
    else
    vazia := false ;
 end;
var
   c, elemento, busca: string[6];
   pi: pilha;
   i: integer;
 Begin
   criar (pi);
   for i := 1 to max do
   begin
     readln(elemento);
     push (pi, elemento);
   end;
   write( 'digite o elemento que deseja procurar: ');
   readln (busca);
    repeat
      pop(pi, busca);
    until (vazia(pi)= true);
 End.