Не доделаю простую программу!

[He3HA4T]

Прога заключается в рандомном наполнении одномерного масива, выводе его на экран, а потом надо вывести этот же масив, но упорядоченый от меньшего к большему.
Вот примерно так
program insertsort;
const
n = 10;
max = 100;
var
a : array[1..n] of integer;
b, i, j : integer;
begin
randomize;
for i:=1 to n do begin
a[i]:=random(max);
write(a[i]:4, ' ');
end;
readln;
for i:=1 to n do begin
b:=a[i];
j:=i-1;
while (j>=1) and (a[j]<b) do begin
a[j+1]:=a[j];
j:=j-1;
end;
a[j+1]:=b;
end;
for i:=1 to n do write(a[i]:4, ' ');
readln;
end.

Только по условию верхнюю границу масива должен задать пользователь. Уже всё перепробывал - не получается! ПомОгитЕ!