Need Delphi Help!!

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.

VB Code:

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?

You need to declare an array in the var section:

Code:

---

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

---