CRC-16/ARC помогите перевести с С++ на мэк

[Вольд]

тогда вместо FOR j:=size TO 0 BY -1 DO должно быть FOR j:=size-1 TO 0 BY -1 DO или FOR j:=size TO 1 BY -1 DO
но все равно не сходится

Значит еще есть ошибки. Зачем вообще копировать код C++, ведь алгоритм расчета хорошо описан. Я в свое время по этому алгоритму свой код написал и все у меня срослось.