как рассчитать fcs - frame check sequence

[_Night_Scream_]

Не подскажете почему не работает с массивом в 20 байт.
Не правильно расcчитывается FCS.
Что то нужно менять?

 
var y: byte;
begin
aAvtorise[0]:=$FD;
aAvtorise[1]:=RANDOM(200);
aAvtorise[2]:=$50;                     
aAvtorise[3]:=$02;                      
aAvtorise[4]:=$00;    
aAvtorise[5]:=$ff;
aAvtorise[6]:=$00;
aAvtorise[7]:=$ff;
aAvtorise[8]:=$00;
aAvtorise[9]:=$ff;
aAvtorise[10]:=$00;
aAvtorise[11]:=$ff;
aAvtorise[12]:=$00;
aAvtorise[13]:=$ff;
aAvtorise[14]:=$00;
aAvtorise[15]:=$ff;
aAvtorise[16]:=$00;
FCS := $FFFF;
  for y := 1 to SizeOf(aAvtorise) - SizeOf(FCS) - 2 do
    X_FCS(aAvtorise[y]);
fcs:=not fcs;
aAvtorise[17]:=lo(FCS);
aAvtorise[18]:=hi(FCS);
aAvtorise[19]:=$fe;