..My Buble Sorting..

Dibawah ini program yang kami posting setelah baru saja mempelajari mata kuliah Algoritma sorting. Harap maklum, bila listnya masih abal-abal. Namun, ini lebih baik dibandingkan tak tahu program sama sekali..
gimana coba ?????
yooo..kita liat list dibawah ini!!!

Program pengurutanAngka;
uses crt;
var data:array [1..10] of BYTE;
    i,j,n: byte;
    temp : BYTE;
begin
   clrscr;
   write('berapa jumlah data :'); readln(n);
   for i := 1 to n do
      begin
        write('input data ke ',i,' :');
        readln(data[i]);
      end;
   readln;
   writeln('data sebelum di urutkan :');
   for i := 1 to n do
      begin
        write(data[i]:5);
      end;
   for i := 1 to n-1 do
      for j:= 1 to n-i do
         if data[j] <
          data[j+1] then
            begin
              temp := data[j];
              data[j] := data[j+1];
              data[j+1]:= temp;
            end;
   readln;
   writeln('data setelah di urutkan :');
   for i := 1 to n do
      begin
        write(data[i]:5);
      end;
    readln;
end.