Массив

[юра 3]

Помогите сделать до конца задачу.

2. Заполнить одномерный массив А(10) различными числами. Заменить отрицательные числа на нули и отсортировать полученную последовательность по возрастанию.

Задачу сделал всё работает, но как отсортировать полученную последовательность по возрастанию?

Вот задача:

program laba6_2;
const n=10;
var
i,j: integer;
a:array [1..10] of integer;
begin
writeln('__________________________ ____________________________');
randomize;
for i:=1 to n do
begin
a[i]:=random (30)-10;
write(a[i]:3);
end;
writeln;
writeln;
for i:=1 to n do
begin

if a [i]<0 then
a[i]:=a[i]*(0);
end;

for i:=1 to n do
write (a[i]:3);
readln; writeln;
end.

[Teor]

program laba6_2;
const n=10;
var
i,j,c: integer;
a:array [1..10] of integer;
begin
writeln('_________________________________________ _____________');
randomize;
for i:=1 to n do
begin
a[i]:=random (30)-10;
write(a[i]:3);
end;
writeln;
writeln;
for i:=1 to n do
begin

if a [i]<0 then
a[i]:=a[i]*(0);
end;
for i:=1 to n do
for j:=1 to n-1 do
if a[j]>a[j+1] then begin
c:=a[j];
a[j]:=a[j+1];
a[j+1]:=c;
end;

for i:=1 to n do
write (a[i]:3);
readln; writeln;
end.