Хитрый сдвиг массива

[xakzona]

Можно ли как нибудь сдвинуть указатель массива на 4 байта вправо? Никаких передвижений элементов (каждый элемент 4 байта), просто сдивинуть указатель

[capta1n]

мой вариант:

program zd;
uses crt;
type
 item = array [1..10] of ^longint;
var
 p : item;
 i : byte;
begin
  clrscr;
  for i:=1 to 10 do
  begin
    new(p[i]);
    p[i]^:=i
  end;
  for i:=1 to 9 do p[i]:=p[i+1];
  p[10]:=nil;
  for i:=1 to 9 do writeln (p[i]^);
  readln
end.