Sorting huruf

Kaya Gini Lho Sourcenya silahkan di pelajari:

program sorting_Huruf;
{Original Made By Nobby Aswi Phala}
{SMAN 4 Denpasar}
var
Ang: array of integer;
panjang,i,j,tmp:integer;
Kalimat:string;
begin
        readln(Kalimat);
        panjang:=length(Kalimat);
        setlength(Ang,Panjang);
for i:= 0 to panjang - 1 do begin Ang[i]:=ord(kalimat[i+1]) end;
        for j:= 0 to panjang - 1  do
        begin
                for i:= 0 to panjang - 1 do
                begin
                        tmp:= ang[j];
                        if tmp<ang[i] then
                        begin
                        ang[j]:=ang[i];
                        ang[i]:=tmp;
                        end;
                end;
                end;
for i:=0 to panjang - 1  do write(char(ang[i]));
readln;
end.