[Alegun]

Скопировал в новый проект (форма,мемо,баттон) код, почти ничего не трогал - работает без ошибок:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var A:array[0..4] of integer;
      i, j, N, M: integer;
begin
memo1.Clear;

A[0]:=5;
A[1]:=3;
A[2]:=4;
A[3]:=1;
A[4]:=2;

N:= High(A);
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;
   for i:=0 to N do Memo1.Lines.Add(IntToStr(A[i]));
end;