[pascal]Var
ptr , _start : PByte;
i : integer;
arr: array of integer;
begin
setlength(arr,100);
ptr:=@arr;
_start := ptr;
for i := 1 to 100 do
begin
// fill our array with random numbers...
// except that with this kind of dynamic array which isn't structured
// same way this cannot work, unless ptr:=@arr[0];
// which would be cheating, and if you pass @arr[0] to length function
// you would not be able to use high() anymore
ptr^ := Random(100);

inc(ptr);
end;
...
end;[/pascal]