звeно зaпaздывания на SТ

[longalier]

что то я не очень понял что получается...
Помогите разобраться
на выходе получаем - 0.
записывает в первый элемент массива 1 и всё, деятельность невидна(

FUNCTION_BLOCK ZP
VAR_INPUT
    vhod:REAL;
    T:TIME;
    N:BYTE;
END_VAR
VAR_OUTPUT
    y:REAL;
END_VAR
VAR
    mas:ARRAY[1..10] OF REAL;
    TP:TP;
    i:BYTE;
END_VAR

IF TP.Q=FALSE THEN
TP(in:=TRUE, PT:=T, Q=>, ET=>);
y:=mas[N];
i:=N;
REPEAT
mas[i]:=mas[i-1];
i:=i-1;
UNTIL i=1
END_REPEAT;
mas[i]:=vhod;
END_IF;