Function Call in ST

IF E1 > MAZ THEN
 MAZ
   := E1; (* new max value *)
END_IF;

   IF SET
   AND NOT SET_old THEN
(* rising
   edge of input SET *)
MAZ
   := INIT; (* set INIT value *)
END_IF;
SET_old
   := SET; (* for edge detection *)
MAZ1(E1 := MAZ_E1, SET := MAZ_SET,INIT := MAZ_INIT);
MAZ_MAZ:=MAZ1.MAZ;