[omaryan]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  A: array [1..10] of byte;
  P: Pointer;
begin
  P := @A;
  //set second element of array to 100 using only operations with pointer "P"
  //**********************
  P := 100;
  //**********************
  ShowMessage(IntToStr(A[2])); // "100"
end;

Нет, изменения должны быть внесены только в промежуток между звездочками. Другие варианты?