[Black_Bear]

Алгоритм пузырьковой сортировки и функция вывода элементов в поле Мемо.
код компилируется но вылетает ошибка
смотрел в Watch List зн-я переменных, индекс j
оказался недоступным как и элемент A[j].
Но массив в конце оказался отсортирован(тот же Watch List, да и после компиляции при наведении на 'А' показывается отсортированный массив)
А вот в Мемо ни в какую не хочет выводиться! Подскажите в чем подвох.

Код:

//объявление ф-ции
function TForm1.OutMemo(X:array of integer):integer;


//реализация метода вывода в Мемо
function TForm1.OutMemo(X:array of integer):integer;
var i,N:word;

begin

  N:=High(X);
  for i:=0 to N do
  Form1.Memo1.Lines.Add(IntToStr(X[i]));

   Result:=1;
end;



var A:array[0..4] of integer=(5,2,3,4,1);
    i,j,N,M:integer;
    begin

N:=High(A);
{A[0]:=5;
A[1]:=3;
A[2]:=2;
A[3]:=1;
A[4]:=4;}
//алгоритм пузырьковой сортировки
for i:=0 to N do
 for j:=0 to N do
   if A[j]>A[j+1]
   then begin
   M:=A[j];
   A[j]:=A[j+1];
   A[j+1]:=M;

end;

//вызов метода
OutMemo(A);