нужно доделать программу по поводу сортировки по возрастанию

[студент АГНИ]

программа уже ищет различные числа, теперь нужно матрицу отсортировать по возрастанию, чет не могу догнать(((
вот текст
uses crt;
const m=10;
var i,n,k,kol,j,x,c:integer;
a:array [1..10] of integer;
Lo:array [1..10] of boolean;
begin clrscr;
randomize;
writeln('ishodnyi massiv ');
for i:=1 to m do
begin
a[i]:=Trunc(random*10);
writeln(a[i]);
Lo[i]:=True;
end;
for i:=1 to m-1 do
for j:=i+1 to m do
if (a[i]=a[j]) then a[i]:= c;
for i:=1 to m do
if a[i]<> c then inc(x);
writeln ('rezultat v massivve ', x , ' razl elementov:');
for i:=1 to m do
if a[i]<> c then write(a[i]);
writeln;
readkey;
{все дальше никак}