昨天做了一个堆栈的小程序，结果编译错误，请高手看看帮忙分析一下哪错了。
FUNCTION FC101: void


CONST
// Constants
l:=20;
i:=0;
END_CONST

VAR_TEMP
// Temporary Variables
j:INT;
A:ARRAY[1..l] OF DINT;
END_VAR

// Block Parameters
VAR_INPUT
// Input Parameters
up,down:BOOL;
shuru:DINT;
END_VAR

VAR_IN_OUT
// I/O Parameters
END_VAR

VAR_OUTPUT
// Output Parameters

END_VAR
BEGIN
IF up=true THEN
IF i<=l THEN
A[i]:=shuru;
i:=i+1;
END_IF;
END_IF;
IF down=true THEN
FOR j:=1 TO i DO
A[j]:=A[j]+1;
END_IF;
i:=i+1;
// Instruction Section

END_FUNCTION