Computação TOP10

program exe5;
//Autor: Cícero Amauri
const max = 5;
type
   pilha = record
              obj: array [1..max] of string;
              i: integer;
            end;
procedure criar (x: pilha);
  begin
    x.i := 0;
  end;
  procedure push(var x:pilha; y: string);
    begin
      x.i:= x.i +1;
      x.obj[x.i] := y;
    end;
    procedure pop(var x:pilha);
    begin
        repeat
          writeln( x.obj[x.i]);
          x.i := x.i - 1;
        until (x.i = 0);
end;
var
  p: pilha;
  elemento: string;
  a : integer;
begin
  criar(p);
  for a := 1 to max do
  begin
    readln(elemento);
    push (p, elemento);
  end;
   pop(p);
end.