内嵌汇编出错？

Question

var
  A:array[0..50] of char;
  r:boolean;
begin asm
 {保存段、寄存器的值}
      push es
      push ds
      pusha
      push ax
      mov ax,seg oldaddr[0]
      mov ds,ax
      mov es,ax
      pop ax
 end;
end;
不能运行？

Answer 1

Push了不少东西，只POP一个 ?  其它的留在堆栈里准备做什么？

Answer 2

编译错误还是运行错误?
PUSH与POP不对应
又没有函数调用,当然有问题的