EXITCODE=201, Помогите найти ошибку, пожалуйста

[Lime789456]

program kk;
uses crt;
var ll:array[0..9] of integer=(5,6,1,2,4,9,3,7,8,0);
s:integer;

procedure bubble(var a:array of integer);
var
n,j,b,i:integer;
begin
n:=10;
for i:=1 to n-1 do
begin
for j:=1 to n-1 do
begin
if a[j]<a[j+1] then b:=a[j];
a[j]:=a[j+1];
a[j+1]:=b;
end;
end;
end;
begin
bubble(ll);
readln;
end.

[Аватар]

a[j+1] - когда j будет равно 9 к какому элементу массива обратишься?