Перевести функцию с C++ (или Go) в Pascal

[lexesv]

C++

string encryptDecrypt(string toEncrypt) {
    char key[3] = {'K', 'C', 'Q'};
    string output = toEncrypt;
   
    for (int i = 0; i < toEncrypt.size(); i++)
        output[i] = toEncrypt[i] ^ key[i % (sizeof(key) / sizeof(char))];
   
    return output;
}

Golang

func EncryptDecrypt(input, key string) (output string) {
    for i := range input {
        output += string(input[i] ^ key[i%len(key)])
    }

    return output
}

 

[lag]

function EncryptDecrypt(input, key: string): string;
var i : byte;
begin
    EncryptDecrypt := input;

    for i := 1 to Length(input) do
        EncryptDecrypt[i] := Chr( Ord(input[i]) xor Ord(key[(i-1) mod Length(key) + 1]) );   
end;