[Aristarh Dark]

У меня вот такой код:

Код:

var
  i:Integer;
  beforelbl:array of Integer;
begin
  showmessage('High(beforelbl)='+inttostr(High(beforelbl)));
  for i := 0 to High(beforelbl) do
    begin
      showmessage('for i := 0 to High(beforelbl) do');
    end
end;

выдает только одно сообщение.