Need Delphi Help!!

[¿InFaMoUs?]

I'm porting a code from C to Delphi, and I got ome errors in the Arrays, I've never used Arrays before, so I'm stuck lol, my intention is to send data to a server, thats just part of the server encryption key.

procedure xxx_xxxxx_xxxx_xxx_xx(data: Byte);
var
x: Word;
begin
if x = 0 then
while x <448 do x := x + 3;
begin
data : array[0..x-1] of data[x] xor $19;
data : array[0..x + 1-1] of := 1] xor $16;
data[x + 2] := 2] xor $18;
end;
end;

This code is in Delphi, I don't know how to get past the errors I'm getting with the Arrays, can anyone help me?

[visualAd]

You need to declare an array in the var section:

var
data: array[1..10] or integer;