CRC16 Перевести с паскаля

Приветствую, помогите нубу перевести с паскаля вот этот код!

Код (Text):

1. const CCNET_CRC_POLY = $08408
2. function GetCRC16(InData: array of byte; DataLng: word): word;
3. var i: word;
4. j: byte;
5. begin
6. result:=0;
7. for i:=0 to (DataLng-1) do
8. begin
9. result:=result xor InData[i];
10. for j:=0 to 7 do
11. begin
12. if (result and $0001)<>0 then
13. begin
14. result:= result shr 1;
15. result:= result xor CCNET_CRC_POLY;
16. end
17. else
18. result:= result shr 1;
19. end;
20. end;
21. end;

Или предложить вариант для проверки строки следующей формулой:
Error detection CRC method
CRC - CCITTusing whole byte shifting into a two-byte frame
P(X) = X^16+ X^12+ X^5+ l

Спасибо!