Нахождение угла между радиус вектором и осью OX

functionangl(y,x:extended):extended;  assembler; 
 asm 
  fld y   {СТЕК!!! Сначала у, потом х} 
  fld x 
  fpatan 
 end; 

вывод ответа:
s:=angl(0,1)*180/pi; {Т.к возвращается угол в радианах} 
writeln(s:0:0);