Sintaks / Listing / Script Program Sorting Bubble Sort

program bublesorting;
uses crt;
var
   a,b,n,i,temp : integer;
   bil : array [1..100] of integer;
   p:char;
begin
 repeat
   clrscr;
   gotoxy(26,1);
   writeln(' ____________________________');
   gotoxy(26,2);
   writeln('|                            |');
   gotoxy(26,3);
   writeln('|  Program Pengurutan Data   |');
   gotoxy(26,4);
   writeln('|    Metode Buble Sort       |');
   gotoxy(26,5);
   writeln('|____________________________|');
   writeln;
   repeat
     write('Masukkan banyak bilangan yang ingin diurutkan : ');
     readln(n);
     if n < 2 then
     writeln('Input salah !! Input harus lebih dari satu !!');
   until n > 1;
   for i := 1 to n do
    begin
     write('Masukkan bilangan ke-',i,' : ');
     readln(bil[i]);
    end;
   for i := 1 to n do
    begin
     for a:=1 to n-1 do
      begin
       b:=a+1;
       if bil[a] > bil[b] then
         begin
           temp:=bil[a];
           bil[a]:=bil[b];
           bil[b]:=temp;
         end;
      end;
    end;
   writeln;;
   writeln('Berikut ini adalah bilangan yang telah urut : ');
   for i:=1 to n do
    begin
     writeln('Bilangan ke-',i,' : ',bil[i]);
    end;
   writeln;
   write('ingin mengulang program ? (Y untuk ya , T untuk tidak) : ');
   readln(p);
 until p='T';
end.