BUBLE SORT

uses wincrt;
var
i,j,x,temp :integer;
a:array[1..100]of integer;
label 10;
begin
clrscr;
write ('masukkan jumlah data anda =');
readln (x);writeln;
for i:=1 to x do
begin
write('data ke-',i,'=');readln(a[i]);
end;
for i:=1 to x-1 do
begin
for j:=1 to x-i do
begin
if a[j] <a[j+1] then
begin
goto 10;
end;
temp:=a[j];
a[j]:=a[j+1];
a[j+1]:=temp;
10:
end;                                                            
end;
writeln;writeln ('Data Aanda Yang Telah Tersortir Yaitu =');writeln;
for i:=1 to x do
begin
writeln (a[i]);
end;
readln;
end.