Помогите составить программу в ТуброПаскале... Составить программу так, что в ответе цифры были в порядке возрастания!

введи цифры в массив и любая сортировка по возрастанию

описание
a[i}:=random(100);
for i:=1 to n-1 do begin
for k:=1 to n-1 do begin
if a>a[i+1] then begin
r:=a;
a:=a[i+1];
a[i+1]:=r;
end;
end;
end;
вывод