Проблема с динамическим массивом

[dee_lv]

Обьясните пожалуйста, что не так?

var
  a: array of integer;
  i: integer;
begin
SetLength(a,n);
  for i:=0 to n do
   begin
    a[i]:=i;
   end;
Finalize(a);
end;

После выполнения процедуры вылетает такая ошибка:

[Stilet]

Не так то что ты n нигде не определил, а оно может быть отрицательным случайно.

[dee_lv]

Сообщение от Stilet

Не так то что ты n нигде не определил, а оно может быть отрицательным случайно.

n определено выше - в код не попало, проглядел.
Даже если руками написать, например, 3, то ошибка всё-равно останется.

[Kostia]

Счет начинается с нуля, поэтому n-1 в цикле

[Sunrise]

Delphi не знаю, но могу предположить, что в цикле нужно проходить от 0 до n - 1. Если идти от 0 до n, то в массиве должно быть (n + 1) элементов.

[Stilet]

Ну в таком случае вот это:

for i:=0 to n do

Замени на это:

for i:=low(a) to high(a) do

И в следующий раз будь добр ошибку приводи. Месные телепаты в отпуске.

[dee_lv]

Сообщение от Stilet

И в следующий раз будь добр ошибку приводи. Месные телепаты в отпуске.

Спасибо за ответ, помогло.
А насчёт ошибки - так она, вообще-то, в самом первом сообщении. (http://ipicture.ru/uploads/080609/sSRyrzmjvI.jpg)

[Stilet]

А-а-а пардон. У меня по умолчанию рисунки выключены )