Vectors

Var
    P: Pointer;
    I: Integer;
Begin
    P:= Ptr($00, $00);
    For I:= 1 To 256 Do Begin
      WriteLn('#', I, ': ', Word(P^), ':', Word(Pointer(LongInt(P) + 2)^));
      Inc(LongInt(P), 4);
      If I Mod 20 = 0 Then ReadLn;
    End;
End.