[AVL]

Заметил в мп такую... особенность:

program NewProject;
type r1=record
  n:integer;
end;

var
  a:array[1..10] of r1;
  i:integer;

begin
  a[1].n:=1;
  a[2]:=a[1];
  a[1].n:=2;
  drawtext(''+a[2].n,0,0);
  repaint;
  delay(1000);
end.

Результат - выводится 2. Это баг или фича?