如果发现广告等破坏行为，请尽量将条目恢复到较早的版本而不是把相应内容直接删除，谢谢合作。

Code:Stack/Pascal

关于栈（stack）的实现：需要指向栈顶的变量top，一个数组为存储数据的空间。

type
stack = record
  top: integer;
  data: array [1..SIZE] of ElementType;
end;