Aplikasi Sorting Dengan Bahasa Pascal

program sorting;
uses wincrt;

var
index : byte;
last_compare_at : byte;
n,i,temp : byte;
a : array [1..7] of byte;


begin
n:=7;

clrscr;

for i:=1 to n do
begin
write('Masukkan angka ke - ',i);
write(' : ');
readln(a[i]);
end;

writeln('ini hasil sorting menggunakan bubble sort');

for last_compare_at:=n-1 downto 1 do
begin
for index:=1 to last_compare_at do
begin
if(a[index] > a[index + 1]) then
begin
temp := a[index];
a[index] := a[index + 1];
a[index + 1] := temp;

end;
end;
end;

for i:=1 to n do
begin
write(a[i]);
write(' ');
end;

readln;
end.