A respeito de algoritmos, estruturas de dados e objetos, julgue o  item  que se segue.

O algoritmo mostrado a seguir resume corretamente a inserção com um leque de, no máximo, sete elementos.

                                    Type leque = record
                                                  topo: integer;
                                                  memo: array [1..7] of char;
                                                  end;
                                     var L:leque;
                                     p.topo: = 0
                                     procedure push (var L:leque; x:char);
                                     begin
                                     if  not L.topo>7 then
                                         begin
                                               L.topo :=L.topo+1;
                                               L.memo [L.topo]:= x;
                                          end;
                                     end;