Сортировка массива

[SGadX]

Здравстуйте, у меня возникла проблема в написании сортировки для программы (ниже), нужна сортировка первого массива выбором и линейная - по возрастанию:

uses crt;
const n=100;
var a,b:array[1..n] of char;
m,i,j:byte;
begin
clrscr;
randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
if odd(i) then a[i]:=chr(random(8)+65)//нечетные номера - буквы
else a[i]:=chr(random(8)+49);//четные цифры
if (i mod 2=0)and(i mod 4<>0) then write(a[i],'-')//первая пара
else if i mod 4=0 then write(a[i],' ')//вторая пара
else write(a[i]);//не пара
end;
writeln;
writeln;
m:=0;
i:=1;
while i<=n-3 do
if(a[i]=a[i+2])or(a[i+1]=a[i+3]) then//если первая=третьей или вторая=четвертой
begin
for j:=1 to 4 do
begin
m:=m+1;
b[m]:=a[i+j-1];//пишем в новый массив
end;
i:=i+4;//перепрыгиваем
end
else i:=i+4;//не ход, просто перепрыгиваем
if m=0 then write('Записей, сходных с ходом ладьи нет!')
else
begin
writeln('Записи, сходные с ходом ладьи:');
for i:=1 to m do

begin
if (i mod 2=0)and(i mod 4<>0) then write(b[i],'-')
else if i mod 4=0 then write(b[i],' ')
else write(b[i]);
end;
end;
readln
end.