type
              Point  =  record
                          X,Y:  integer;
                        end;
              List   =  array[1..2]  of integer;
              var
                P:  Point;
                L:  longint;
                N:  integer;
              begin
                P  := Point (L);
                N  := Point (L) .x;
                longint (P)  :=  longint (P)  +  $00080008;
                List (P) [N]  := 32;
              end.